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ABSTRACT 


"  ^ A  design-oriented,  interactive  computer  system  which 
makes  possible  the  dynamic  loading  of  programs  at  the 
user's  request  throughout  the  operating  session  has  been 
developed.  This  system,  which  is  referred  to  as  DCX,  also 
allows  the  user  to  select  various  types  of  files  as  the 
source  and  destination  of  information  during  the  session, 
with  respect  to  one  type  of  file,  databases,  DCX  introduces 
a  more  versatile  form  of  organization  and  use. -x 

An  extended  DEX  library  of  subroutines  is  developed 
which  enables  the  user  to  read  and  write  integer  scalar, 
real  scalar  and  one-dimensional  real  array  variables  and 
to  edit  from  the  terminal  integer  and  real  scalar  values. 

It  also  enables  the  user  to  employ  during  input  and  out¬ 
put  sequences  the  unit  system  of  his  choice. 

A  proposal  is  offered  for  the  organization  of  DEX 
databases  for  the  preliminary  design  of  naval  ships. 
Suggestions  are  made,  based  on  a  demonstration  computer 
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ABSTRACT 


A  design-oriented,  interactive  computer  system  which 
makes  possible  the  dynamic  loading  of  programs  at  the 
user's  request  throughout  the  operating  session  has  been 
developed.  This  system,  which  is  referred  to  as  DEX,  also 
allows  the  user  to  select  various  types  of  files  as  the 
source  and  destination  of  information  during  the  session. 
With  respect  to  one  type  of  file,  databases,  DEX  introduces 
a  more  versatile  form  of  organization  and  use. 

An  extended  DEX  library  of  subroutines  is  developed 
which  enables  the  user  to  read  and  write  integer  scalar, 
real  scalar  and  one- dimensional  real  array  variables  and 
to  edit  from  the  terminal  integer  and  real  scalar  values. 

It  also  enables  the  user  to  employ  during  input  and  out¬ 
put  sequences  the  unit  system  of  his  choice. 

A  proposal  is  offered  for  the  organization  of  DEX 
databases  for  the  preliminary  design  of  naval  ships. 
Suggestions  are  made,  based  on  a  demonstration  computer 
program,  for  employing  existing  ship  databases  to  support 
a  generalized  ship  synthesis  model. 
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CHAPTER  1 


INTRODUCTION  TO  DEX 


1. 1  Background 

Significant  improvements  in  the  capability  and 
efficiency  of  computer-aided  design  systems  have  been 
achieved  in  the  past  decade  by  the  introduction  of 
interactive  computer  programs.  This  development  was  a 
major  advance  in  providing  more  flexibility  to  the  user 
at  the  input  end  of  the  process.  However,  too  many  of 
the  innumerable  design  programs,  and  the  design  systems 
that  incorporate  collections  of  them,  suffer  from  several 
bothersome  problems: 

(i)  Less,  but  still  excessive,  restrictions 
on  the  flexibility  of  the  programs  to 
respond  to  the  individual  user's  needs. 

(ii)  Incompatibility  of  input  and  output 

amongst  programs  and  especially  between 
programs  and  databases. 

(iii)  Excessive  training  time  required  for  users 
to  learn  how  to  use  the  programs. 

(iv)  Inability  to  be  transported  to  different 
facilities . 

In  1974,  researchers  at  the  Massachusetts  Institute 
of  Technology  and  the  University  of  Michigan  felt  that  an 
investment  in  the  "front  end"  of  computer-aided  design 
systems  could  eliminate  or  reduce  these  characterstics 
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and  result  in  design  tools  of  greatly  enhanced  capability 
[1] ,  [2],  [3].  One  of  their  goals  was  to  develop  a  sys¬ 
tem  that  provides  the  designer  almost  as  much  flexibility 
at  the  computer  terminal  as  he/she*  has  when  sitting  at  a 
desk  with  pencil,  paper,  calculator  and  imagination  at 
their  disposal.  The  system  would  be  easy  to  use  because 
of  a  consistent  approach  to  the  interface  between  the 
user  and  the  programs.  Further,  it  would  incorporate  a 
more  intelligent  approach  to  the  use  of  databases.  They 
named  this  concept  "DEX",  for  Design  Executive  System. 

DEX  is  a  self-contained  software  package  that  can 
be  adapted  to  almost  any  computer  system  that  supports 
Fortran.  It  provides  an  environment  for  running  task- 
oriented  programs,  called  "modules".  It  supports  pri¬ 
marily,  but  not  exclusively,  interactive  programs  where 
there  is  communication  between  essentially  five  "parties": 
the  user,  the  computer,  the  computation  program,  the 
source  of  input  and  the  destination  of  output. 

The  purpose  of  the  work  reported  in  this  thesis  was 
to  continue  the  development  of  the  system  at  the  inter¬ 
mediate  level  in  the  DEX  hierarchy  between  what  is  refer¬ 
red  to  as  "(the)  DEX"  and  the  "module".  This  intermediate 

* 

The  use  throughout  this  thesis  of  the  proper  pro¬ 
noun  "he"  and  its  derivatives  when  referring  to  the  pro¬ 
grammer,  user  or  designer  is  for  the  smoothness  of  the 
text  and  is  not  to  imply  any  presumption  of  those  persons' 

sex. 
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category  of  subprograms  is  called  the  "extended  DEX 
library".  (The  collection  of  all  the  design  program 
modules  is  called  the  "DEX  library".)  The  function  of 
the  extended  DEX  library  is  to  enable  the  user  to  accom¬ 
plish  the  following: 


(i) 

Establish  an  environment  in 
of  dialogue  and  the  source 
of  information  is  defined. 

which  the  type 
and  destination 

(ii) 

Specify  the  system  of  units 
input  and  output. 

to  be 

used  for 

(iii) 

Read  information. 

(iv) 

Edit  information. 

(v) 

Write  information. 

This  investigator's  motivation  was  to  advance  the 
development  of  an  extremely  capable  tool  for  the  field 
of  ship  design,  but  it  should  be  stressed  that  DEX  can 
be  employed  by  any  discipline  involving  computer-aided 
design. 

1.2  Description  of  DEX 

1.2.1  Theory.  Reference  [3]  provides  an  original 
and  excellent  description  of  DEX,  but  this  writer  felt 
that  some  discussion  should  be  presented  here  to  assist 
the  reader  in  relating  to  the  information  offered  in 
this  thesis . 
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There  are  five  characteristics  of  DEX  which  reflect 
the  design  philosophy  of  the  system*. 

(i)  The  user  is  in  the  design  loop. 

(ii)  The  system  allows  the  design  process  to  be 
executed  in  more  than  one  sequence. 

(iii)  The  system  talks  with  the  user  in  plain 
English. 

<iv)  The  system  is  forgiving. 

(v)  The  system  has  multiple  capabilities  for 
input  and  output. 

1.2. 1.1  The  user  in  the  design  loop.  Design 
processess  are  typically  iterative  ones.  This  is  especially 
true  in  the  sh.'p  design  process  as  vividly  illustrated  by 
the  ship  design  spiral.  Computer  programs  allow  many  and/ 
or  complicated  calculations  to  be  performed  quickly.  The 
faster  that  the  results  can  be  analyzed  and  a  new  set  of 
calculations  initiated,  the  better.  Even  more  advantag¬ 
eous  is  the  ability  to  do  only  part  of  the  calculations  and 
analyze  those  results  to  decide  whether  or  not  to  proceed. 
DEX  extends  the  degree  of  spontaneity  characteristic  of 
interactive  programs  by  enabling  the  dynamic  starting  of 
modules  of  the  user's  choice,  by  providing  more  options 
for  sources  of  information  immediately  available  to  the 
user  and  by  allowing  the  user  to  edit  and  insert  information 
before  it  is  used  in  calculations  or  written  to  its  final 
destination. 
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1.2. 1.2  Flexibility.  The  increased  flexi¬ 
bility  offered  by  DEX  manifests  itself  in  two  ways.  The 
first,  implemented  to  allow  any  computer  program  accept¬ 
able  to  the  operating  system  to  be  operated  in  a  system 
incorporating  DEX,  is  that  the  degree  of  involvement  with 
DEX  is  completely  within  the  prerogative  of  the  module 
author.  The  term  "module  author"  was  introduced  in 
reference  [3]  and  will  be  adopted  here  for  consistency. 

It  applies  to  the  person  who  writes  the  particular  appli¬ 
cation  program  and  who  chooses  which  DEX  services  to  use. 
As  a  minimum,  the  module  author  can  arrange  for  the  user 
to  issue  only  the  following  commands  to  execute  the 
program: * 


.  start  main  (this  activates  DEX) 

.  begin  module2  (this  starts  the  user' 3  program) 

There  would  not  really  be  any  point  to  such  an  exercise 
but  it  can  be  done  by  fulfilling  only  two  requirements . 
First,  the  name  of  the  file  containing  the  module  name 
(e.g.,  module2  above)  must  be  introduced  in  the  DEX's 


The  symbol  " . "  will  be  used  to  indicate  user- 
typed  commands,  "$"  will  indicate  DEX  messages  and 
will  indicate  module  messages.  These  symbols  are  auto¬ 
matically  inserted  by  DEX. 
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library  file.  Secondly,  the  main  program  of  the  module 
must  be  a  subroutine  appearing  first  in  a  listing  of  the 
module . 

The  second  aspect  of  the  DEX's  flexibility  is  the 
use  of  "menus'*  to  provide  the  user  with  a  wide  choice  of  I 

paths  to  follow  to  accomplish  his  goal.  A  menu  is  a  list 
of  options  (a  maximum  of  twelve  per  menu  is  possible) 
from  which  the  user  chooses  to  either  define  a  value  or 
proceed  onto  the  next  step  of  the  operation.  Some 
examples  should  prove  helpful. 

Figure  1-1  depicts  a  typical  units  menu  which 
illustrates  the  first  type  of  menu.  The  user  would  type 
in  sufficient  characters  to  identify  the  length  unit  to 
be  used  for  input  or  output,  e.g.,  "foot"  (or  just  "f") . 

'  j 

The  subprogram  which  includes  this  menu  would  accep  t  I 

> 

the  choice,  if  proper,  and  return  control  to  the  sub¬ 
program  which  called  it.  j 

Menus  are  normally  not  displayed.  The  user  will  i 

i. 

likely  be  aware  of  the  menu  options  and  is  simply 

prompted  to  make  a  choice.  For  this  example,  one  would  & 

see: 

•ENTER  AN  ITEM  FROM  MENU  -  LEN . UNIT 


However,  if  the  menu  choices  are  unknown,  the  user  can 
type 


MT-vv.. 
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$  + - + 

$  +  MENU  + 

$  +  LEN . UNIT  + 

$  + - + 

$  1  +  INCH  + 

$  + - + 

$  2  +  FOOT  + 

$  + - —  + 

$  3  +  STATMILE  + 

$  + - + 

$  4  +  NAUTMILE  + 

$  + - + 

$  5  +  MILLIMET  + 

$  + - + 

$  6  +  CENTIMET  + 

$  + - + 

$  7  +  METER  + 

$  + - + 

$  8  +  KILOMET  + 

$  +•  ~ + 


Figure  1-1.  Menu  "LEN. UNIT" 
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- + - + 

MENU  +  MENU  + 

MOD. 10  +  INPUT  + 

- + - - - + 

INPUT  +  ALL  + 

+  — — — —  + 
OUTPUT  +  UNITS  + 

- - + - - + 

DONE  +  CA  + 

- + - + 

+  WATER  + 

+  HULLFORM  + 

- - + - + 

+  SPEEDS  + 

- + - - + 

+  DONE  + 


Figure  1-2.  Two  Consecutive  Operational  Menus 
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.  $display  menu  len.unit 


to  have  the  menu  displayed  by  the  OCX.  Mote  that  in 
this  case  the  user  himself  types  "$".  The  word  "dis¬ 
play"  is  a  selection  from  menu  "DEX.MAIN".  After  re¬ 
viewing  the  menu,  by  typing 

. continue 

he  is  returned  to  the  prompting  message  for  the  length 
unit  menu. 

The  second  type  of  menu  option  directs  the  program 
to  proced  to  the  next  operation.  Figure  1-2  shows  two 
successive  "operational"  menus  from  a  theoretical  program 
that  estimates  horsepower  from  the  Taylor  Standard 
Series.  The  user  would  select  item  "input"  from  menu 
"MOD. 10"  in  order  to  pass  onto  the  subprogram  containing 
the  menu  "INPUT".  Any  of  the  items  from  that  menu  would 
pass  him  onto  another  subprogram. 

There  is  a  subtle  difference  between  the  menus  of 
Figure  1-1  and  1-2.  Observe  that  the  second  shows  the 
item  "done"  in  both  menus  which  is  absent  from  the  first. 
A  subprogram  with  a  menu  containing  "done"  returns  con¬ 
trol  to  the  subprogram  which  called  it  only  when  that 
entry  is  selected,  whereas  for  the  other,  without  a 
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"done",  control  returns  automatically  once  a  selection  is 
made.  The  latter  is  used  in  menus  where  only  one  choice 
would  be  made  at  any  time. 

The  user  is  free  to  choose  any  item  from  a  menu 
that  is  meaningful  to  him.  There  is,  therefore,  no  one 
predetermined  path  that  must  be  followed  when  executing 
a  group  of  menus.  Logic,  however,  may  dictate  that  one 
specifies  units  before  reading  in  water  properties. 

1.2. 1.3  Plain  English.  The  messages  and. 
queries  to  the  user  provided  by  DEX  have  been  designed 
to  be  as  clear  as  possible.  The  instructions  or  re¬ 
sponses  that  the  user  must  supply  are  natural  and  logical 
words  that  would  be  used  in  an  oral  dialogue.  An  impor¬ 
tant  aspect  of  these  practices  is  the  uniformity  of 
dialogue  encountered  by  the  user  under  DEX.  This  reduces 
the  effort  required  to  learn  how  to  operate  a  new 
program,  which  is  not  an  insignificant  advantage. 

1.2. 1.4  Forgiving .  By  extending  the 
capabilities  of  the  conventional  design  programs  with 
DEX,  the  user  can  accomplish  more  during  a  session,  but 
this  entails  more  thinking  on  his  part.  The  probability 
that  errors  will  occur  is  therefore  higher. 

Even  the  most  experienced  user  makes  mistakes.  It 
may  be  as  simple  as  depressing  the  wrong  key  when  typing 
a  menu  selection  or  as  improper  as  supplying  an  integer 
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when  the  program  wants  a  real  number.  When  developing 
the  DEX  and  extended  DEX  library  routines,  and  the 
Machinery  Weight  Estimating  Module  of  Chapter  3,  as 
many  potential  errors  as  possible  were  anticipated  and 
diagnostic  messages,  in  plain  English,  were  provided. 

In  some  cases  they  advise  the  user  of  kh*.  xrror  and  allow 
him  to  try  again  at  that  same  point.  1*.  •  tfters ,  especially 
where  a  problem  is  caused  by  a  progtwa** .tg  error,  control 
is  returned  to  the  user  several  sequential  subroutines 
prior  to  where  the  error  occured,  with  a  message  issued 
to  assist  in  determining  where  to  search  for  the  mistake. 

1.2. 1.5  Input/Output  Capability.  DEX  enables 
the  communication  of  information  by  the  dynamic  allocation 
of  databases  and  files,  which  are  the  only  two  storage 
locations  it  recognizes.  In  practice  we  distinguish 
between  two  types  of  files,  such  that  the  list  of  loca¬ 
tions  is  as  follows: 

(i)  databases 

(ii)  input  locations  (which  are  the  terminal 

for  alphanumeric  characters  and  a  graphics 
screen  for  x-y  coordinates)  and  output  loca¬ 
tions  (the  terminal  screen  in  the  form  of 
menus) 

(iii)  disk  files. 

Now,  for  the  ease  of  understanding  of  the  user, 
the  environment  in  which  he  operates  is  described  as 


19 


having  a  total  of  five  "sources"  of  information  and  four 
"destinations".  The  term  "information"  is  preferred  here 
to  "input"  and  "output"  to  preclude  a  limiting  misconcep¬ 
tion  by  the  reader.  The  tendency  to  think  of  input  as 
data  read  and  output  as  answers  written  should  be  avoided. 
In  fact,  the  user  may  need  to  "write”  input  to  the  term¬ 
inal  for  inspection,  or  "read"  an  output  value  from  the 
terminal  in  order  to  "write"  it  to  a  database.  For  this 
reason  this  writer  will  often  apply  the  term  "information" 
to  both  input  and  output  variables  as  values  that  have  a 
source  or  destination. 

The  sources  and  destinations  provided  for  in  the 
operating  environment  of  the  OEX  system  described  in  this 
thesis  are  listed  here: 

(i)  DEX-created  databases 

(ii)  the  terminal  using  OEX  routines  to  read  or 
write  alphanumeric  characters 

(iii)  the  terminal  or  a  plotter  using  graphics 
routines  to  read  or  create  x-y  plots 

(iv)  sequential  files 

(v)  module  default  data  (source  only) 

The  third  capability  does  not  yet  exist  in  the 
present  version  of  OEX  at  MIT  because  all  the  necessary 
enabling  routines  have  not  yet  been  implemented.  If  the 
user  tries  to  employ  it,  error  messages  advise  him  of 
this  situation. 
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The  user  is  not  confined  to  using  the  same  type 
of  destination  as  source,  or  the  same  source  for  all  the 
information  of  a  program.  He  may  read  information  from 
one  or  more  databases,  for  example,  and  write  it  to 
another,  or  to  the  terminal  or  to  a  file,  or  all  three 
in  succession.  The  only  restriction  is  that  the  module 
can  be  pointed  toward  only  one  source  or  destination  at 
one  time. 

1.2.2  Organization.  The  hierarchy  of  DEX  consists 
of  three  levels  of  programs:  the  DEX,  the  extended  DEX 
library  and  the  module.  The  first  two  categories  com¬ 
prise  a  permanent,  portable  set  of  subprograms  which 
provides  an  interface  between  the  computer  and  the  user- 
supplied  module. 

1.2. 2.1  DEX.  The  category  called  DEX  con¬ 
sists  of  several  hundred  subroutines,  each  with  a  very 
specific  function,  which  provide  the  foundation,  or 
"umbrella"  if  you  will,  for  the  DEX  System.  The  employ¬ 
ment  of  these  subroutines  by  the  module  authors  results 
in  a  uniform  appearance  of  the  system  to  the  user  of  the 
various  modules  exercised.  The  DEX  services  provide  in¬ 
put/output  and  data  utilities  and,  eventually  at  MIT, 
graphics  utilities  for  the  module  authors.  Although  the 
module  author  and  user  need  not  be  aware  of  most  of  these 
subprograms,  in  two  areas  they  draw  directly  on  the 
features  of  routines  in  this  category. 


The  first  area,  of  interest  to  the  module  author, 
is  a  set  of  37  subroutines  and  functions  which  the  pro¬ 
grammer  may  incorporate  into  his  module  to  perform  cer¬ 
tain  tasks.  References  [4]  and  [5]  describe  these  sub¬ 
programs  and  how  they  are  used.  Briefly,  they  are  grouped 
into  five  categories:  control  of  execution,  input,  output, 
database  management  and  character  manipulation.  Subsequent 
chapters  will  refer  to  these  as  "DEX  routines". 

The  second  area  of  overt  involvement  with  the  DEX 
category  is  encountered  by  the  user  during  operation  of 
a  module.  When  the  command 

.start  main 

is  issued,  the  user  enters  the  DEX  environment  and  is 
presented  with  a  prompting  message  for  menu  "DEX. MAIN". 
There  are  six  menus  at  this  level  of  DEX,  and  these  are 
listed  in  Figure  1-3.  The  first  instruction  given  to 
the  user  is: 

$ ENTER  AN  ITEM  FROM  MENU  -  DEX. MAIN 

These  items  are  listed  in  the  rightmost  column  in  the 
table.  Note  menu  "DEX.DISP"  which  allows  the  user  to 
display  any  menu  by  typing 

.display  menu  menuname 
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Figure  1-3.  DEX  Menus  (as  printed  on  terminal) 
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The  user's  module  is  activated  when  he  types 


from  menu  "DEX.MAIN", 

.begin  module name 

He  then  enters  the  environment  of  the  module,  but  he 
can  return  to  the  DEX  level  by  using  the  symbol  and 
then  an  item  from  "DEX.MAIN".  Similarly,  he  can  transfer 
temporarily  from  the  DEX  level  to  the  local  computer 
operating  system  level  by  the  option  "system".  To  get 
back  into  DEX  he  uses  the  command 

•return 

and  then  to  get  back  to  the  module  he  uses  the  menu 
option  "continue". 

When  a  module  execution  is  complete,  the  user 
returns  to  the  DEX  level  and  issues  the  command 

.quit 

to  return  permanently  to  the  operating  system. 

1 . 2 . 2 . 2  Extended  DEX  Library.  The  extended 
DEX  library  is  not  a  level  of  operation  like  DEX  on  the 
module,  but  rather  a  collection  of  45  subroutines  and 
functions  which  the  module  author  can  adopt  in  con¬ 
structing  his  module.  The  bulk  of  this  investigator's 
work  involved  the  development  of  this  library,  and  it 
will  be  discussed  further  in  Section  1.3  and  Chapters  3-7. 
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1.2. 2. 3  Module.  A  module  is  a  complete  set 
of  subprograms  written  by  the  module  author  and  executed 
by  the  user  to  perform  a  specific  task.  A  module  may 
consist  of  only  one  program  which  does  the  actual  calcu¬ 
lations,  or  it  may  have  many  additional  subprograms 
employing  menus  to  take  advantage  of  the  flexibility 
offered  by  DEX  and  the  extended  DEX  library.  Chapter  2 
describes  in  detail  an  actual  module  used  during  the 
testing  of  the  extended  DEX  library  subprograms,  and 
Chapter  8  describes  the  Machinery  Weight  Estimating 
Module  written  to  demonstrate  the  use  of  the  cruiser- 
destroyer  databases. 

1.3  The  Extended  DEX  Library 

In  order  to  convey  information  from  a  storage 
location  to  the  program  doing  the  calculations  and  from 
there  to  another  storage  location  or  display,  five 
capabilities  are  required  by  the  user.  These  five, 

listed  here,  are  provided  by  the  extended  DEX  library: 

(i)  Setting  and  reviewing  the  module  environ¬ 
ment  for  type  of  dialogue  and  sources  and 
destinations  of  information. 

(ii)  Reading  information. 

(iii)  Editing  information. 

(iv)  Writing  information. 

(v)  Converting  the  user-preferred  input/output 
units  to  the  module  author-preferred  units 
and  back  again. 
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The  five  categories  will  be  briefly  outlined  here  and 
described  in  detail  in  Chapters  3-7. 

1.3.1  Environment.  Four  subroutines  provide  or 
display  the  module  environment  defined  by  the  user. 
They  are: 


DIALOG:  enables  user  to  specify  terse  or  verbose 
dialogue 

SOURCE:  enables  user  to  specify  source  of  infor¬ 
mation,  either  a  DEX-created  database, 
the  terminal,  a  sequential  file  or  the 
module's  default  data. 

DESTIN:  enables  user  to  specify  the  destination 
of  information,  either  a  DEX-created 
database,  the  terminal  or  a  sequential 
file 

MDMODE:  displays  the  status  of  the  module  environ¬ 
ment,  including  type  of  dialogue,  reading 
source,  writing  destination,  and  reference 
numbers  for  files  to  be  read  from  or  written 
to. 


1.3.2  Readers .  Eight  logical  functions  allow  the 
user  to  read  information  from  the  designated  source. 

They  are: 


ISCLDR:  invokes  ISCPMP  and  ISREAD 

ISCPMP:  prepares  a  prompting  message  for  reading 
an  integer  from  the  terminal 

ISREAD:  reads  an  integer  value  from  the  source. 

RSCLDR:  invokes  RVAPMP  and  RSREAD 

RVAPMP :  prepares  a  prompting  message  for  reading 
a  real  scalar  or  a  real  array  from  the 
terminal. 


RSREAD :  reads  a  real  scalar  value  from  the  source 

RA1LDR:  invokes  RVAPMP  and  RA1RED 

RA1RED:  reads  a  single  one-dimensional  array  from 

the  source. 

1.3.3  Editors .  The  editing  routines  are  still 
undergoing  development.  Eventually  they  will  enable  the 
user  to  perform  various  editing  functions  on  the  working 
variables  of  the  module.  Two  preliminary  routines  were 
completed  during  this  investigation: 

ISCEDT:  enables  the  user  to  change  the  value  of 

an  integer  scalar  variable  from  the 
terminal . 

RSCEDT:  enables  the  user  to  change  the  value  of  a 
real  scalar  variable  from  the  terminal. 

1.3.4  Writers .  Eight  logical  functions  allow  the 
user  to  write  information  to  the  designated  destination 
They  are: 

ISCDMP:  calls  ISDSCR  and  ISRITE 

ISDSCR:  prepares  a  description  message  for 
writing  an  integer  to  the  terminal 

ISRITE:  writes  an  integer  scaler  to  the  desti¬ 
nation 

RSCDMP:  calls  RVDSCR  and  RSRITE 

RVDSCR:  prepares  a  description  message  for  writing 
a  real  scalar  or  a  one-dimensional  real 
array  to  the  terminal 
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RARDMP:  calls  RVDSCR  and  RARITE 

RARITE:  writes  one-dimensional  real  arrays  to  the 
destination 

1.3.5  Units .  The  units  subprograms  are  divided 
into  three  categories.  The  first  category  contains  five 
subroutines  which  read,  edit  or  write  the  input/output 
units  that  the  user  wishes  to  employ.  There  is  one  for 
each  of  the  five  basic  types  of  units  adopted  by  the 
system:  plane  angle,  force,  length,  temperature  and 
time.  The  names  of  these  subroutines  are: 

AUNIT 

FUNIT 

LUNIT 

TPUNIT 

TUNIT 

The  second  category  contains  five  logical  functions, 
one  for  each  of  the  five  basic  unit  types,  which  deter¬ 
mine  the  conversion  factors  for  converting  to  i/o  units 
to  the  program  standard  units  and  vice  versa.  Additionally, 
they  prepare  unit  names  and  abbreviations  of  unit  names 
which  are  used  in  database  comments  and  prompting  and 
description  messages.  The  names  of  these  functions  are: 
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UNITAF 


UNITFF 

UNITLF 

UNITMP 

UNITTF 

The  last  category  contains  twelve  logical  functions 
which  perform  the  same  function  as  those  in  the  second 
category,  but  for  derived  units  formed  by  combining 
basic  units.  They  are: 


UAACC: 

angular  acceleration 

UACCZL : 

linear  acceleration 

UAJREA: 

area 

UFREQ: 

frequency 

UKVISC : 

kinematic  viscosity 

□MASS : 

mass 

UMPOWER: 

mechanical  power 

□PRESS : 

pressure 

UP SPEC: 

power  spectrum 

URHO : 

density 

USPEED : 

speed 

UVOL: 

volume 
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1.4  Dex  Databases 


1.4.1  Philosophy.  The  DEX  philosophy  includes  as 
a  fundamental  feature  a  new  and  more  capable  approach 

to  database  manipulation.  This  revolves  around  the 
concept  of  identifying  a  variable  within  a  database  by 
its  name  and  not  by  its  location.  For  example,  if  a  user 
needs  the  value  of  an  entry  in  the  database  signifying 
the  ship’s  draft,  he  retrieves  that  value  at  the  address 
"DRAFT',  or  whatever  name  it  has  been  assigned  by  the 
database  creator,  and  not  by  specifying  that  the  value  is 
the  fourth  or  twentieth  entry  in  the  database. 

In  order  to  use  the  capabilities  of  DEX  a  database 
must  be  constructed  via  either  the  commands  of  menu 
"DBEDCMDS"  or  the  database  management  routines  in 
reference  [4] .  These  entail  a  specific  format  for  the 
entry  of  the  variable,  but  there  is  no  sequential  order 
required  for  arranging  the  different  variables  in  the 
database . 

1.4.2  Format  of  Database  Entries.  In  the  present 
version  of  DEX  a  database  can  contain  up  to  200  variables. 
Three  types  of  variables  are  allowed:  integer  scalars, 
real  scalar,  and  one-dimensional  real  arrays.  A  real 
array  can  contain  up  to  200  elements. 

A  variable  entry  in  a  database  consists  of  four 
parts.  First  is  the  database  name,  which  is  formed  by 
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up  to  eight  alphanumeric  characters  (including  blanks) , 
e.g. ,  "LBP",  "WEIGHT17” ,  "TYPSONAR".  Second  is  the  type 
of  variable  -  integer,  real  scalar  or  real  array  -  and 
third  is  the  value  of  the  variable  itself.  The  final 
part  is  the  database  comment  statement,  a  string  of 
words  up  to  64  characters  long  which  describes  the 
variable.  If  the  variable  is  either  a  real  scalar  or 
real  array  and  has  units ,  the  comment  statement  contains 
a  twelve-character  (including  blanks)  version  of  the  units 
enclosed  in  parentheses.  Appendix  B  contains  edited 
listings  of  a  warship  general  database  which  illustra¬ 
tes  database  entries. 

Accompanying  each  database  will  be  a  database 
dictionary  which  lists  for  each  variable  its  database 
name,  type,  array  size,  if  applicable,  and  official  data¬ 
base  comment,  including  units,  if  applicable.  Future 
versions  of  DEX  will  separate  the  units  from  the  comment 
as  a  distinct  fifth  part  of  a  variable  entry.  Further, 
development  has  started  to  create  positional  databases 
which  will  allow  database  elements  to  be  related  to  each 
other,  e.g.,  a  database  containing  a  ship's  compartments 
where  two  compartments  are  adjacent. 

This  chapter  has  attempted  to  give  a  brief  intro¬ 
duction  to  the  concept  and  organization  of  DEX.  For  the 
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reader  who  is  confused  at  this  point  by  the  large  number 
of  new  ideas,  terms  and  subprograms  mentioned,  Chapter  2 
has  been  included  to  provide  an  example  of  a  simple 
module  which  employs  many  of  the  concepts  and  subroutines 
described.  It  should  give  the  reader  a  practical  aware¬ 
ness  of  how  this  all  ties  together.  This  will  prove 
helpful  in  reading  the  next  five  chapters  which  discuss 
the  design  of  the  extended  DEX  library  subprograms. 
Chapter  8  discusses  an  application  of  DEX  to  computer- 
aided  ship  design.  Finally,  Chapter  9  offers  recommenda¬ 
tions  for  future  work. 
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CHAPTER  2 


THE  CUBE  MODULE  SAMPLE  PROGRAM 

2 . 1  General  Description 

2.1.1  Function  of  the  Module.  The  Cube  Module 
was  developed  to  test  the  subprograms  of  the  extended 
DEX  library  written  during  this  investigation.  The 
module  calculated  the  volume  and  weight  of  a  block  of 
salt  water  given  the  length,  width,  and  height  (note 
that  "cube"  is  a  slight  misnomer) .  While  that  function 
itself  was  elementary,  the  combination  of  single,  scalar 
values  for  length  and  width  and  an  array  for  height  (and 
also,  therefore,  for  volume  and  weight)  permitted  the 
testing  of  the  reading,  editing  and  writing  routines 
for  real  scalars  and  the  reading  and  writing  routines 
for  real  arrays.  The  subprogram  for  specifying  input 
and  output  units  employed  the  routines  for  integer 
scalars.  The  subroutines  for  determining  the  conversion 
factors  for  length,  force  and  volume  were  also  exercised. 
Finally,  as  a  matter  of  course,  the  environment  setting 
routines  were  also  tested. 

Appendix  A  contains  a  listing  of  the  module. 

2.1.2  Module  Subprograms.  Although  no  single, 
correct  sequence  of  operating  the  module  subprograms 
existed,  there  was  a  logical  path  one  would  follow  to 
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execute  the  program  when  not  attempting  to  test  every 
available  option  of  the  module.  This  path  is  a  convenient 
order  in  which  to  list  the  module  subprograms  and  those 
extended  DEX  library  subprograms  involving  menus : 


MAINPG 

(C-M) 

DIALOG 

(DL-M) 

SOURCE 

(DL-M) 

DESTIN 

(DL-M) 

MDMODE 

(DL) 

MOD  10 

(C-M) 

INPUT 

(C-M) 

MX  UN  IT 

(C-M) 

LUNIT 

(DL-M) 

FUNIT 

(DL-M) 

DIMENS 

(C-M) 

COMPUT 

(C) 

OUTPUT 

(C-M) 

VANDWT 

(C-M) 

BLOCK  DATA 

(C) 

The  "C"  indicates  a  Cube  Module  subprogram,  the  "DL” 
indicates  an  extended  DEX  library  subprogram  and  the  "M" 
indicates  that  the  subprogram  included  a  menu.  Figure 
2-1  illustrates  the  menus  encountered  in  this  model. 

2.1.3  Typical  Operation.  A  description  of  a 
typical  execution  of  the  Cube  Module  should  prove  help¬ 
ful.  To  assist  the  reader.  Figure  2-2  shows  the  various 
access  and  return  routes  of  the  subprograms.  Once  the 
user  entered  the  DEX  level  environment  he  activated  the 
Cube  Module  via  the  "begin"  option  of  menu  "DEX .MAIN", 
that  is 

.  begin  cube 
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Figure  2-1.  Menus  Encountered  in  Executing  the  Cube  Module 
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Figure  2-2.  Access  routes  of  the  various 
subprograms  encountered  in  executing  the 
Cube  Module.  Return  routes  are  back 
along  the  arrows. 


C 


where  "cube"  was  the  assigned  module  identification  name. 
This  command  placed  him  in  module  subroutine  MAINPG 
where  he  encountered  the  message: 

* ENTER  AN  ITEM  FROM  MENU-MOD . MAIN 
The  user  typed  "mod. mode"  and  was  presented  with  the 
status  of  the  module  environment.  The  initialized 
values  for  the  dialogue,  source  and  destination  were 
verbose,  terminal  and  terminal  respectively  and  he 
found  these  satisfactory.  He  then  typed 
.read 

which  sent  him  to  subroutine  MODIO  and  the  message 

* SELECT  WHICH  MODULE  VARIABLE  SEGMENT  TO  READ 
* ENTER  AN  ITEM  FROM  MENU-MOD. 10 

From  this  menu  he  selected  item  "input"  by  typing  it: 

. input 

Now  in  subroutine  INPUT  he  received  the  instruction 

* SELECT  WHICH  INPUT  VARIABLE  SEGMENT  TO  READ 
•ENTER  AN  ITEM  FROM  MENU- INPUT 

At  this  point,  to  save  time,  he  made  two  sequential 
selections.  From  menu  "INPUT"  he  selected  "units"  and 
anticipating  menu  "UNIT"  he  chose  "length".  He  ac¬ 
complished  this  by  typing 
.units  length 

DEX  recognized  the  space  between  the  two  words  as 
a  delimiter  between  two  commands.  It  acted  on  the  first 
by  invoking  subroutine  MXUNIT.  It  then  located  item 
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"length"  on  that  subroutine's  menu  and  called  subroutine 

LUNIT  which  issued  the  command 

* ENTER  LENGTH  UNIT  TO  BE  USED  DURING  INPUT  OUTPUT 
* ENTER  AN  ITEM  FROM  MENU-LEN . UNIT 

The  user  specified  "foot".  LUNIT  then  passed  control 

back  to  subroutine  MXUNIT  which  printed 

* SELECT  WHICH  UNIT  TO  READ 
•ENTER  AN  ITEM  FROM  MENU-UNIT 

Again  to  save  time,  the  user  typed  in  two  sequential 

menu  selections: 

. force  f pound 

This  sent  him  to  FUNIT  and  then  back  to  MXUNIT.  This 
time  from  menu  "UNIT  he  chose  item  "done"  which  returned 
him  to  subroutine  INPUT.  Figure  2-3  illustrates  this 
sequence . 

At  this  point  the  user  had  defined  the  length  and 
weight  units  he  intended  to  use  for  input  and  output.  In 
response  to  INPUT'S  request  for  a  menu  selection  he  typed 
. dimen sio 

This  invoked  subroutine  DIMENS  and  caused  the  following 
to  be  printed. 

•SELECT  THE  DESIRED  DIMENSION  TO  READ 
•ENTER  AN  ITEM  FROM  MENU- DIMENS 10 

The  user  intended  to  read  in  all  three  dimensions  (he 

could  have  used  any  or  all  of  the  initialized  values 

built  into  the  module  in  BLOCK  DATA)  so  he  typed  item 


★ENTER  AN  ITEM  FROM  MENU  -  MOD. MAIN 
.mod. mode 


★MODULE  DIALOGUE  :  VERBOSE 

★MODULE  INPUT  SOURCE  :  THE  TERMINAL 

★MOOULE  OUTPUT  SOURCE  :  THE  TERMINAL 

★REFERENCE  NUMBER  FORM  MOOULE 
★FORTRAN  READ  FROM  A  FILE  :  3 
★FORTRAN  WRITE  TO  A  FILE  :  4 
★ENTER  AN  ITEM  FROM  MENU  -  MOD. MAIN 


(ALPHANUMERIC) 

(ALPHANUMERIC) 


.read 

★SELECT  WHICH  MOOULE  VARIABLE  SEGMENT  TO  READ. 

★ENTER  AN  ITEM  FROM  MENU  -  MOD. 10 
.input 

★SELECT  WHICH  INPUT  VARIABLE  SEGMENT  TO  READ. 

★ENTER  AN  ITEM  FROM  MENU  -  INPUT 
.units  length 

★ENTER  AN  ITEM  FROM  MENU  -  LEN.UNIT 
.  foot 

★SELECT  WHICH  UNIT  TO  READ. 

★ENTER  AN  ITEM  FROM  MENU  -  UNIT 
.force  fpound 

★SELECT  WHICH  UNIT  TO  READ. 

★ENTER  AN  ITEM  FROM  MENU  -  UNIT 
.done 

★SELECT  WHICH  INPUT  VARIABLE  SEGMENT  TO  READ. 

★ENTER  AN  ITEM  FROM  MENU  -  INPUT 
.dimensio 

★SELECT  THE  DESIRED  DIMENSION  TO  READ. 

★ENTER  AN  ITEM  FROM  MENU  -  DIMENSIO 
.all 

★ENTER  LENGTH  OF  CUBE  (FOOT  ) 

★ENTER  UP  TO  1  REAL  NUMBERS 

.1.0 

★ENTER  WIDTH  OF  CUBE  (FOOT  ) 

★ENTER  UP  TO  1  REAL  NUMBERS 

.1.0 

★ENTER  HEIGHT  OF  CUBE  (FOOT  ) 

★ENTER  UP  TO  4  REAL  NUMBERS 
.1.  2.  3.  4. 

★SELECT  WHICH  INPUT  VARIABLE  SEGMENT  TO  READ. 

★ENTER  AN  ITEM  FROM  MENU  -  INPUT 


Figure  2-3.  Sample  Cube  Module  Input  Sequence 


C 


39 


"all".  The  computer  responded  with: 

* ENTER  LENGTH  OF  CUBE  (FOOT  ) 

* ENTER  UP  TO  1  REAL  NUMBERS 

The  user  typed  in  "1.0"  and  the  computer  proceded  to  the 
next  instruction 

* ENTER  WIDTH  OF  CUBE  (FOOT  ) 

* ENTER  UP  TO  1  REAL  NUMBERS 

The  process  was  repeated,  except  that  for  height  the 

computer  requested  up  to  four  real  numbers  (height  was 

defined  as  an  array  having  up  to  four  elements)  .  When 

the  desired  number  (say  four)  of  heights  were  entered 

control  returned  to  INPUT.  The  user  then  typed  in 

.done  done 

to  return  to  subroutine  MODIO  and  from  there  to  sub¬ 
routine  MAINPG. 

In  response  to  this  subroutine's  instruction  the 
user  typed 

. compute 

This  invoked  the  COMPUT  subroutine  to  actually  calculate 
the  volumes  and  weights .  Control  was  then  returned  to 
MAINPG  as  evidenced  by  the  instruction 
♦ENTER  AN  ITEM  FROM  MENU-MOD .MAIN 
By  now  comfortable  with  the  operation  of  the 
module,  the  user  decided  to  display  his  results  on  the 
terminal.  He  decided  to  retain  "foot"  and  "poundforce" 
as  the  units,  although  he  could  have  selected  any  desired 
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units  by  accessing  MXUNIT  again.  The  volumes  and  weights 
returned  by  COMPUT  were  in  metric  units,  that  being  the 
system  in  which  COMPUT  was  written.  The  conversions  took 
place  at  the  input/output  locations.  More  on  this  later. 

Now  observe  closely.  The  user  issued  the  following 
commands : 

.write  output  results  all 

These  were  selections  from  menus  "MOD .MAN”,  "MOD. 10", 
"OUTPUT"  and  "RESULTS"  respectively.  The  computer 
printed  on  the  terminal  the  four  volumes  and  four  weights. 
Figure  2-4  is  a  copy  of  that  printing. 

■Ni 

Satisfied  with  his  answers,  the  user  responded  to 
the  current  instruction  from  subroutine  OUTPUT  with 

.done  done 

to  get  back  to  MOD. MAIN.  Choice  "quit"  at  this  point 
caused  him  to  leave  the  module  level  and  return  to  the 
DEX  level,  facing  menu  "DEX .MAIN" .  The  "quit"  selection 
allowed  him  to  exit  DEX  and  reenter  the  operating  system 
level  in  order  to  log  off. 

The  rest  of  this  chapter  will  describe  the  sub¬ 
programs  of  the  Cube  Module  to  assist  the  reader  in 
understanding  how  to  write  a  module  program. 


41 


•ENTER  AN 

ITEM  FROM  MENU  -  MOO. MAIN 

cutout  u Its  at* 

•VOLUME  OF 

CUBE  (FOOT  .-3  ) 

•  INOEX 

VALJE 

•  1 

0.999999E-00 

•  2 

0.20000CS*01 

•  3 

0 . 29  99 39S-01 

•  4 

0 .3999996*01 

•WEIGHT  of 

CUBE  (  FC'.'O  (  FORCE  )  ) 

•  INOEX 
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•  1 

0.638755E-02 

•  2 

0. 1277S3£*03 

•  3 

0.191 629£*03 

•  4 

0.255506E-03 

Figure  2-4.  Sample  Cube  Results 

(as  printed  on  terminal) 


2 . 2  Frequently  Used  Subroutines 

2.2.1  Block  Data.  We  will  commence  the  discussion 
of  the  module  with  the  subroutines  which  may  be  used  with 
only  slight  changes  in  form  and/or  content  in  several 
modules.  The  user  may  wish  to  refer  frequently  to  the 
listings  of  these  subroutines  in  Appendix  A. 

First  is  a  special  subprogram,  BLOCK  DATA,  used 
as  standard  practice  in  Fortran  to  initialize  all  the 
labeled  common  blocks  used  throughout  the  module.  With 
respect  to  input/output  variables,  a  typical  labeled 
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common  block  appearing  in  BLOCK  DATA  and  the  pertinent 
subprograms  is  as  follows: 

COMMON  /VINFO/  V ( 4) , VOLNAM, VOLCMT, NDEVF , DEFALV ( 4 ) 
From  this  we  can  identify  the  following  information 
which  should  appear  in  BLOCX  DATA: 

(i)  the  variable  (dimensioned  for  its  maximum 
size  if  an  array) 

(ii)  the  variable  database  name 

(iii)  the  variable  database  comment 

(iv)  the  number  of  default  values  (if  it  is  an 
array) 

(v)  the  default  value  (or  dimensioned  default 
array) 

These  values  would  all  be  initialized  in  the  BLOCK  DATA. 
Locating  the  initialization  and  dimensioning  of  all 
input/output  variables  in  one  subprogram  facilitates 
checking  and  is  a  highly  recommended  practice. 

The  variables  are  grouped  under  the  subroutines  in 
which  they  first  appeared.  MAINPG  included  four  common 
blocks  -  REFNOS ,  INOUTF,  DIALFG  and  MDNCPW.  All  of  these 
are  used  in  several  other  subprograms.  REFNOS  included 
the  variables  RNRFIL  and  RNWFIL  which  represented 
respectively  the  file  reference  numbers  for  reading  from 
a  sequential  file  using  the  Fortram  READ  command  and 
writing  to  a  sequential  file  via  the  Fortan  WRITE 
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command.  INOUTF  included  the  variables  IMODE  and  OMODE. 


The  first  denoted  the  source  of  reading  information  (1  * 
database,  etc.)  and  the  second  denoted  the  destination 
for  writing  information  (1  *  database,  etc.).  OIALGF 
contained  the  logical  variable  MTERSE  to  denote  the  type 
of  module  dialogue  (terse  or  verbose) .  Finally  labeled 
common  MDNCDW  contained  the  integer  variable  NCPW  which 
was  the  number  of  characters  per  word  assumed  by  the  DEX 
routines.  This  value  was  site  dependent.  For  example 
on  IBM  computers  it  was  4.  For  this  reason  it  was  flagged 
in  BLOCK  DATA  as  site-dependent. 

The  other  subroutines  which  represented  the  first 
occurrences  of  labeled  common  blocks  were  LUNIT,  TUNIT, 
FUNIT,  AUNIT,  TPUNIT,  DIMENS  and  VANDWT.  Let  us  examine 
DIMENS.  It  contained  nine  labeled  common  blocks.  The 
first  four  were  mentioned  above  in  MAINPG.  LUNITS  will 
be  described  in  Chapter  7.  The  remaining  four  were 
listed  under  subroutine  DIMENS  in  BLOCK  DATA.  LINFO, 

WINFO  and  HINFO  contained  the  variable,  database  name, 
comment,  default  values  and  number  of  default  values, 
where  applicable,  for  the  length,  width  and  height 
dimensions  respectively.  H  and  DEFALH  were  dimensioned 
because  they  were  arrays.  The  type  declarations  and 
dimensions  of  all  the  variables  were  followed  by  the 
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data  declarations  of  their  values.  The  remaining  common 
block,  DIMFRM,  represented  the  formats  to  be  used  when 
reading  from  or  writing  to  sequential  files.  One  format 
was  for  real  scalars  and  the  other  for  arrays. 

2.2.2  MAINPG.  Subroutine  MAINPG,  via  menu 
"MOD. MAIN",  allowed  the  user  to  select  the  environment 
of  the  module  and  the  desired  paths  to  follow  to  operate 
it.  The  capabilities  it  gave  the  user  were: 

(1)  To  set  the  style  of  module  dialogue.  This 
choice  invoked  subroutine  DIALOG. 

(2)  To  select  the  source  of  module  input.  This 
choice  invoked  subroutine  SOURCE.  Remember  that  "input" 
here  means  any  information  to  be  read,  even  output 
variables . 

(3)  To  select  the  destination  of  module  output. 
This  choice  invoked  subroutine  DESTIN. 

(4)  To  list  the  module  flags.  This  invoked  sub¬ 
routine  MDMODE  which  printed  the  status  of  the 
dialogue,  the  source,  the  destination,  and  the  file 
reference  numbers. 

(5)  To  access  the  module  reading  routines.  This 
choice  set  the  variable  IOFLAG-1  and  then  called  MODIO. 

(6)  To  access  the  module  editing  routines.  This 
choice  set  IOFLAG-2  and  then  called  MODIO. 
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(7)  To  access  the  module  computing  routine  by  cal¬ 
ling  COMpuT  to  execute  the  calculations. 

(3)  To  access  the  module  writing  routines.  Thi3 
choice  set  I0FLAG*3  and  then  called  MOOIO. 

(9)  To  return  control  to  the  DEX  level  and  menu 
"DEX. MAIN" .  It  did  this  by  invoking  the  DEX  routine  ENDIT 
The  menu  name  and  the  items  were  declared  in  MAINPG 
with  data  statements.  DEX  routine  MENUIN  was  used  to  con¬ 
vert  the  user's  selection  to  an  integer  flag  ITEM  for 
branching  to  the  correct  point  in  MAINPG.  MENUIN  was  the 
routine  that  actually  printed  the  prompting  instruction  to 
enter  a  menu  item. 

The  user  can  make  his  subroutine  MAINPG  as  simple 
or  extensive  as  desired  within  the  constraint  that  the 
maximum  number  of  menu  items  (because  of  MENUIN)  is  twelve 
To  show  how  simple  it  cou^d  be,  consider  a  user  who  has  a 
program  called  STRENGTH  and  for  some  reason  he  wanted  to 
start  it  with  the  DEX.  All  he  would  need  in  his  module 
besides  STRENGTH  is  the  following  subroutine: 

SUBROUTINE  MAINPG 
CALL  STRENGTH 
RETURN 
END 

If  STRENGTH  used  menus,  DEX  routine  ENDIT  would  also  have 
to  be  called  to  clear  the  buffer  afterwards. 


2.2.3  MODIO.  Subroutine  MODIO  had  one  parameter 

in  its  calling  sequence  -  IOFLAG  -  which  indicated  if  the 
operation  to  be  performed  was  reading,  editing  and  writing. 
MODIO  had  two  labeled  commons  -  DIALGF  and  MDNCPW  -  dis¬ 
cussed  in  BLOCK  DATA.  DIALGF  determined  whether  the  ver¬ 

bose  or  terse  menu  prompting  message  would  be  issued. 

NCPW  was  needed  for  calling  DEX  routines  STRPAK  and 
LMOVEC. 

MODIO  presented  the  user  with  the  menu  selections 
shown  in  Figure  2-1.  The  "all"  option  allowed  the  user 
to  read,  edit  or  write  all  the  input  and  output  variables. 
The  "all"  option  was  implemented  by  a  logical  variable 
"ALLFLG"  which  was  set  to  .TRUE  if  that  menu  item  was 
chosen.  This  variable  was  subsequently  passed  on  through 
the  module.  If  it  was  returned  .FALSE,  to  MODIO,  it  would 

cause  the  execution  of  the  last  command  to  be  halted  and 

the  prompting  message  for  menu  "MOD. 10"  to  be  issued  so 
that  the  user  could  take  corrective  action. 

2.2.4  MXUNIT  and  the  "ALL"  Logic.  A  subprogram 
similar  to  MXUNIT  will  be  needed  in  any  module  which 
allows  the  user  to  specify  i/o  units  different  from  those 
in  which  the  computing  routines  were  written.  MXUNIT  per¬ 
mitted  the  user  to  read,  edit  or  write  the  module  units  he 
wished  to  use  for  input  and  output.  For  example,  if  the 
user  selected  "force"  from  menu  "UNIT",  subroutine  FUNIT 
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would  have  been  called  to  present  the  menu  choices  for 
force  units.  FUNIT  and  the  others  in  that  series  will  be 
described  in  Chapter  7,  but  some  detail  is  required  here 
because  of  all  the  calling  parameters  involved. 

The  calling  sequence  for  FUNIT,  typical  for  all 
five  in  that  series,  was  as  follows: 

CALL  FUNIT ( UIFCN , LOCALL , IOFLAG , IOMODE , MTERSE , 

NCPW, DBFUNN , DBFUNC , PMPREP , PMES , 

RNFILE , FUNFRM , DEFFUN ) 

The  first  parameter  was  an  output  variable,  LOCALL  was 
both  input  and  output,  and  the  rest  were  all  input  vari¬ 
ables  provided  by  MXUNIT. 

UIOFUN  would  have  been  assigned  a  value  between  1 
and  7  depending  on  what  force  unit  the  user  selected. 

LOCALL  carried  the  information  concerning  the 
"ALL"  option.  One  of  the  calling  parameters  for  MXUNIT, 
CALALL,  passed  on  the  "ALL"  option  from  subroutine  INPUT. 
If  it  was  .TRUE,  then  LOCALL  would  have  immediately  been 
assigned  .TRUE,  also,  and  the  prompting  for  menu  "UNIT" 
would  have  been  bypassed.  Each  of  the  i/o  unit-defining 
routines,  such  as  FUNIT,  would  have  been  called  and  the 
user  asked  to  specify  the  desired  choice  of  the  particu¬ 
lar  type  of  unit.  Even  if  CALALL  was  .FALSE.,  the  user 
could  have  selected  "all"  from  menu  "UNIT"  with  similar 
results. 
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If  any  of  the  i/o  unit-defining  subroutines  was  un¬ 
successful,  LOCALL  would  have  been  returned  .FALSE..  The 
program  would  have  checked  the  value  of  CALALL.  If  it  too 
was  .FALSE.,  the  menu  "UNIT"  would  have  been  presented  for 
another  selection.  However,  if  CALALL  was  .TRUE.,  it  would 
have  meant  that  there  had  been  a  change  in  the  value  of 
LOCALL  (i.e.,  a  failure  in  the  called  subprogram).  MXUNIT 
would  have  set  CALALL  to  .FALSE,  and  returned  control 
through  subroutine  INPUT  back  to  MODIO.  This  was  because 
INPUT  incorporated  the  same  "ALL"  logic  as  MXUNIT. 

Note  from  the  listing  of  MXUNIT  that  LOCALL  is  ini¬ 
tialized  as  .FALSE. .  If  CALALL  was  .FALSE,  and  the  user 
did  not  choose  "all"  from  menu  "UNIT",  he  would  have  been 
asked  to  select  from  the  menu  each  time  after  a  unit  was 
specified,  until  he  typed  "done".  This  "ALL"  logic  was 
used  extensively  throughout  the  module  as  a  means  of  ex- 
peditng  the  reading,  editing  or  writing  of  many  variables. 

Returning  to  the  calling  sequence  for  FUNIT,  we 
have  already  mentioned  IOFLAG,  indicating  the  operation  to 
be  performed.  PMPREP  was  set  locally  by  a  data  declara¬ 
tion.  It  indicated  to  the  subprograms  called  whether  or 
not  a  prompting  message  for  the  unit  to  be  selected  was  to 
be  prepared  by  the  program.  If  .TRUE.,  PMES  would  later 
be  the  storage  location  for  the  prompting  message.  If 
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PMPREP  was  .FALSE.,  PMES  would  already  have  to  have  the 
prompting  message  in  it.  Since  PMES  first  appeared  here 
in  MXUNIT  it  was  dimensioned  here  for  the  maximum  allow¬ 


able  size  of  16  "words".  This  number  came  from  the  limi¬ 
tation  on  PMES  to  be  at  most  64  characters  long,  divided 
into  4-character  "words". 

All  the  other  variables  were  obtained  by  MXUNIT 
from  other  subprograms,  including  BLOCK  DATA,  by  labeled 
common  blocks.  An  inspection  of  the  listing  of  MXUNIT  re¬ 
veals  the  large  number  of  commons  required  because  of  five 
types  of  units. 

INOUTF  passed  the  indicator  of  the  source  of  in¬ 
formation  to  be  read  (IMODE)  and  the  destination  of  infor¬ 
mation  to  be  written  (OMODE) .  Depending  on  IOFLAG,  IOMODE 
was  set  equal  to  one  of  these  two.  This  told  FUNIT  from 
where  UIOFUN  was  to  be  read  or  to  where  UIOFUN  was  to  be 
written. 

REFNOS  passed  the  values  of  the  file  reference  num¬ 
bers  for  Fortran  READ  (RNRFIL)  and  Fortran  WRITE  (RNWFIL) . 
Depending  on  IOFLAG,  RNFILE  was  set  equal  to  one  or  the 
other.  These  values  are  assigned  to  files  during  the  ex¬ 
ecution  of  extended  DEX  library  routines  SOURCE  and  DESTIN 
by  DEX  routine  SETDEV  if  the  user  had  designated  files  as 
the  source  or  destination. 

The  other  labeled  commons  will  be  described  in 


Chapter  7. 


50 


2 . 3  The  Input  Series 

2.3.1  INPUT.  Subroutine  INPUT  provided  the  user 
with  a  menu  by  which  he  could  access  subroutines  MXUNIT  and 
DIMENS  and  return  control  to  subroutine ‘ MODIO .  It  con¬ 
tained  the  labeled  common  blocks  DIALGF  and  MDNCPW  for  use 
in  calling  STRPAK  and  LMOVEC  for  character  manipulation. 
INPUT  had  two  variables  in  its  calling  sequence  -  CALALL 
and  IOFLAG  -  as  did  MXUNIT  described  above.  The  logic 

for  the  use  of  CALALL  and  LOCALL  was  identical  to  that  de¬ 
scribed  in  2.2.4.  Briefly,  if  LOCALL  was  set  to  .TRUE, 
when  INPUT  was  invoked  because  CALALL® . TRUE . ,  and  it  was 
returned  by  MXUNIT  or  DIMENS  as  .FALSE.,  CALALL  would 
have  been  set  equal  to  .FALSE,  and  control  passed  back  to 
MODIO.  If  CALALL  was  .FALSE.,  LOCALL  would  have  been 
-FALSE,  unless  the  user  selected  ''all"  from  menu  "INPUT". 

Besides  LOCALL,  INPUT  passed  IOFLAG  to  MXUNIT  and 
DIMENS  to  indicate  reading,  editing  or  writing. 

2.3.2  DIMENS .  Subroutine  DIMENS  allowed  the  user 

to  read,  edit,  or  write  the  value  of  the  block  dimensions. 
It  had  two  calling  parameters,  ALLFLG  and  IOFLAG.  The 
former  carried  the  "ALL"  option  information  and  behaved 
like  CALALL.  The  "ALL"  option  was  passed  on  to  the  called 
logical  functions  by  the  usual  variable  LOCALL. 

DIMENS,  like  MXUNIT,  also  contained  quite  a  few 
labeled  common  blocks.  Five  have  already  been  seen  in 


51 


MXUNIT:  DIALGF,  INOUTF,  MDNCPW,  REFNOS ,  and  LUNITS.  LINFO 

WINFO,  and  HINFO  contained  the  variable,  database  name,  com 
ment  and  default  values  for  the  length,  width  and  height  of 
the  block.  DIMFRM  contained  the  format  information  for 
reading  from  or  writing  to  files. 

Before  menu  "DIMENSIO"  was  presented  to  the  user,  two 
actions  occurred.  The  first  was  the  calling  of  the  logi¬ 
cal  function  UNITLF  by  the  statement 

LOGVAL ■ UN ITLF (CONVLM, NAML02 , NAML06 , NAML12 , ALLFLG, 
PSTLUN ,  UIOLUN ,  NCPW) 

UNITLF,  discussed  in  Chapter  7,  produced  the  multiplicative 
conversion  factor  CONVLM  for  converting  the  dimensions  in 
the  input  length  unit  to  values  in  the  program  standard 
length  unit  (meter) .  The  second  through  fourth  variables 
in  UNITLF ' s  calling  sequence  represented  various  abbrevia¬ 
tions  of  the  length  unit  ’the  user  had  selected  fox  input/ 
output.  UNITLF  was  able  to  provide  this  information  be¬ 
cause  of  the  values  of  PSTLUN  and  UIOLUN.  The  first  in¬ 
dicated  program  standard  length  unit,  the  second  user  i/o 
length  unit.  As  a  pair  they  were  an  index  to  locating 
the  other  information. 

The  other  action  which  occurred  immediately  in  DIMENS 
was  the  setting  of  LOCALL  equal  to  ALLFLG.  If  this  made 
LOCALL  equal  to  .TRUE.,  ^enu  "DIMENSIO"  was  not  presented 
and  DIMENS  immediately  started  operating  on  all  the  menu 
choices . 
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If  the  user  selected  "width"  from  the  menu,  the  pro¬ 
gram  next  referred  to  IOFLAG.  If  I0FLAG*1  (reading),  the 
program  branched  to  the  statement 

LOGVAL*RSCLDR(W ,  LOCALL ,  MTERSE ,  IMODE ,  NCPW ,  VJIDNAM , 

CONVLM , CONVLA , NAMLl 2 , . FALSE . , . TRUE . , 

PMES ,  WMORGN ,  RNRFIL ,  LWFRM ,  DEFALW) 

Logical  function  RSCLDR  is  the  first  of  three  functions 
for  reading  real  scalars.  The  value  read  in  for  width, 
in  program  standard  units,  was  stored  in  W.  IMODE  indi¬ 
cated  the  source  of  the  reading.  WIDNAM  was  the  8-charac¬ 
ter  database  name  for  width.  CONVLM  and  CONVLA  were  re¬ 
spectively  the  multiplicative  and  additive  conversion  fac¬ 
tors  for  changing  the  read  in  width  to  the  value  in  program 
standard  units  via  the  expression 
W-W  *  CONVLM  +  CONFLA 

CONVLA  was  locally  declared  0.  NAML12  was  the  12-charac¬ 
ter  version  of  the  i/o  length  unit  and  was  used  in  prompt¬ 
ing  message  preparation  and  database  comment  comparison. 

The  parameter  .FALSE,  represented  the  variable  VITAL  which 
indicated  if  the  variable  W  was  essential  for  input  con¬ 
tinuation.  The  parameter  .TRUE,  was  for  PMPREP,  indica¬ 
ting  that  the  reading  subprograms  would  prepare  the 
prompting  message  PMES,  at  this  point  undefined.  Since 
PMES  was  a  local  variable  not  passed  to  DIMENS  by  the 
calling  sequence  or  a  labeled  common  block  it  was  dimen¬ 
sioned  ”16"  in  DIMENS.  WMORGN  contained  the  description 
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of  the  width,  including  space  allotted  for  inserting  the 
units.  RNRFIL  and  LWPRM  were  the  reference  number  and 
format  respectively  for  reaching  width  from  a  file. 

DEFALW  was  the  default  value  for  width  if  the  user  wished 
to  set  W  equal  to  that. 

If  I0FLAG“2 ,  the  subprogram  called  the  editing  rou¬ 
tines  by  the  expression 

LOGVAL-RSCEDT (W, LOCALL , MTERSE , NCPW , WIDNAM, CONVLM , 
CONVLA ,  NAML12  ,  .  TRUE .  ,  PMES  ,  WMORGN , 

RNRFIL , LWFRM , DEFLAW) 

This  was  very  similar  to  the  reading  function  except  that 
IMODE  was  not  specified.  This  was  because  RSCEDT  itself 
defined  and  employed  a  variable  EDMODE,  of  value  2,  for 
the  terminal,  in  lieu  of  IMODE,  when  it  called  RSCLDR. 

Finally,  if  IOFLAG-3,  the  real  scalar  writing  rou¬ 
tines  were  invoked  by  the  statement 

LOGVAL*  RSCDMP (LOCALL , MTERSE , OMODE , NCPW, W , WIDNAM , 
CONVLM , CONVLA , NAMLl 2 , . TRUE . , PMES , 

WMORGN ,  RNY7FIL ,  LWRFM) 

Observe  that  OMODE  was  used  to  indicate  destination  of  the 
value  of  W  for  writing.  Also  note  the  use  of  RNWFIL  to  in 
dicate  the  file  reference  number  for  writing  with  Fortran 
WRITE,  using  the  format  supplied  by  LWFRM. 

Because  the  height  variable  H  represented  a  four- 
element  array,  the  logical  functions  called  were  different 
For  reading  (I0FLAG«1)  DIMENS  branched  to  the  statement 
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LOGVAL*  RA1LDR  ( H ,  LOCALL ,  NGOT ,  MTERSE ,  IMODE ,  NCPW ,  HE  IN  AM , 
MXTOGT , CONVLM , CONVLA , NAML12 , . FALSE . , 

. TRUE . , PMES , HMORGN , RNRFIL , HFRM , NDEFH , 
DEFALH) 

Several  new  variables  appear  here .  MXTOGT  represented  the 
maximum  number  of  elements  to  extract  from  the  source  when 
the  source  was  a  database  or  the  terminal.  NGOT  represen¬ 
ted  the  actual  number  of  elements  read  from  the  source. 

Both  MXTOGT  and  NGOT  were  initialized  as  4  in  DIMENS.  VITAL 
was  defined  by  the  .FALSE,  and  PMPREP  by  the  .TRUE..  HFRM 
contained  the  format  for  reading  the  array  from  a  file. 

NDEFH  and  DEFALH  were  respectively  the  number  of  default 
values  and  a  four-element  array  containing  the  default 
values  for  height. 

Because  the  array  editing  routines  had  not  yet  been 
written,  provision  for  calling  a  dummy  routine,  RAREDT, 
was  included  in  DIMENS. 

For  writing  (I0FLAG»3) ,  the  program  branched  to 

LOGVAL*  RARDMP ( LOCALL , MTERS E , OMODE , NCPW , H , HEINAM , 

NFROM , NGOT , CONVLM , CONVLA , NAML1 2 , 

. TRUE . , PMES , HMORGN , RNWFIL , HFRM) 

NGOT,  mentioned  above,  and  NFROM,  were  initialized  as  4 
and  1  respectively  in  DIMENS.  NGOT  could  have  a  value 
different  from  4  only  if  less  than  four  elements  were  read 
in  when  RA1LDR  was  called. 
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2 . 4  The  Output  Series  Subprograms 

The  output  series  consisted  of  two  subprograms  - 
OUTPUT  and  VANDWT  -  for  working  with  the  volumes  and 
weights  calculated  by  COMPUT.  These  had  direct  parallels 
to  INPUT  and  DIMENS  and  need  not  be  discussed  in  detail. 
OUTPUT  offered  the  user  the  capability  of  invoking  MXUNIT, 
via  the  menu  item  "unit" ,  in  case  the  user  wished  to 
write  the  volume  and  weight  in  different  units  from  those 
he  had  used  for  reading  in  the  block  dimensions. 

2 . 5  General  Programming  Comments 

This  chapter  will  conclude  with  some  comments  about 
writing  modules.  It  is  hoped  that  the  reader  has  some 
understanding  of  the  calling  parameters  used  by  module 
subprograms  when  invoking  extended  DEX  library  routines. 

In  some  cases  large  numbers  of  variables  appear  in  the 
calling  sequences.  This  is  due  to  the  fact,  as  will  be 
pointed  out  in  the  next  chapter,  that  the  library  rou¬ 
tines  use  no  common  blocks. 

One  suggestion  already  emphasized  is  the  use  of  a 
BLOCK  DATA  subprogram  to  initialize  all  input/output 
variables  and  their  associated  variables.  This  adds  some 
extra  work  by  increasing  the  number  of  common  block  vari¬ 
ables,  such  as  the  database  names,  comments  and  default 
values.  However,  the  improved  efficiency  for  checking 
values  and  dimensions  is  considered  to  outweigh  this  dis¬ 
advantage  . 
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When  writing  a  module,  to  determine  the  menus  required 
it  is  easiest  to  work  backwards  in  the  opposite  direction 
to  the  order  of  use.  Identify  the  input  and  output  vari¬ 
ables  and  place  them  in  menus.  Then  establish  a  supervis¬ 
ory  input  menu  and  a  supervisory  output  menu.  For  example, 
one  may  contain  the  group  name  for  the  input  variables,  such 
as  "dimensions"  in  Cube,  plus  a  units  item  to  allow  the 
user  the  choice  of  i/o  units.  At  this  point  the  module 
author  may  be  almost  done  with  the  module  design  phase, 
because  he  earn  frequently  incorporate  the  standard  routines 
MAINPG  and  MODIO  to  complete  his  set.  MXUNIT  is  also 
offered  as  a  very  adaptable,  comprehensive  routine  for 
handling  units.  In  a  situation  like  the  Machinery  Weight 
Estimating  Module  in  Chapter  8,  one  menu  suffices  for  both 
input  and  output  variables.  Figure  2-5  illustrates  the 
difference  in  flow  between  the  main  subroutine  and  the 
i/o  variables  for  the  two  modules.  Yet  both  use  identical 
MAINPG  and  MODIO  subprograms  and  only  slightly  different 
versions  of  MXUNIT. 

When  establishing  menus  a  few  rules  must  be  kept  in 
mind.  The  maximum  number  of  menu  items  is  twelve.  When 
constructing  the  eight  character  menu  item  names,  no 
blanks  are  allowed  between  characters  but  are  acceptable 
after  all  the  characters.  If  each  menu  item  begins  with 
a  different  character,  only  that  one  character  has  to  be 


entered  by  the  user  to  enable  DEX  routine  MENUIN  to 
identify  the  selection. 


Machinery  Weight  Estimating  Module 


Figure  2-5.  Comparison  of  Module  Input/Output  Flow 

( 
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CHAPTER  3 


THE  EXTENDED  DEX  LIBRARY  ENVIRONMENT  SETTING  ROUTINES 

3 . 1  Introduction 

Upon  entering  the  module  level  of  DEX  operation,  the 
user  needs  to  establish  or  verify  the  environment  which 
suits  his  requirements.  Four  extended  DEX  library  subrou¬ 
tines  give  him  the  capability  to  do  this.  They  are: 

(1)  DIALOG,  which  sets  the  type  of  module  dialogue 

(2)  SOURCE,  which  defines  the  location  of  informa¬ 
tion  to  be  read 

(3)  DESTIN,  which  defines  the  location  to  which  in¬ 
formation  is  to  be  written 

(4)  MDMODE,  which  displays  on  the  terminal  the  cur¬ 
rent  status  of  the  type  of  dialogue,  the 
source,  the  destination  and  the  file  ref¬ 
erence  numbers  for  Fortran  READ  and  WRITE 
to  sequential  files. 

Each  of  these  will  be  discussed  in  this  chapter.  Logical 
function  CHKRNG,  revised  during  this  investigation,  is  also 
discussed  here,  although  it  will  eventually  become  a  DEX 
routine  and  not  an  extended  DEX  library  function. 

3.2  Subroutine  DIALOG 

3.2.1.  Menu  and  Calling  Parameter.  Subroutine  DIALOG 
(  would  normally  be  called  by  a  subroutine  similar  to  the 


59 


subroutine  MAINPG  of  the  Cube  Module.  In  that  specific 
case  it  was  done  by  selecting  item  "dialogue"  from  menu 
"MOD. MAIN".  DIALOG  has  its  own  menu,  and  this  is  illus¬ 
trated  in  Figure  3-1.  Note  the  absence  of  an  item  "done". 


$  + - + 

$  +  MENU  +• 

$  +  MOD.ALTR  + 

$  + - —  + 

$  1  +  TERSE  + 

$  + - + 

$  2  +  VERBOSE  +■ 

$  + - + 


Figure  3-1.  Menu  "MOD.ALTR" 
(for  Subroutine  DIALOG) 
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which  appeared  in  most  of  the  Cube  Module  menus.  This  is 
typical  for  the  subroutines  of  this  chapter.  Since  the 
user  only  makes  one  choice  from  these  menus,  the  subpro¬ 
grams  automatically  return  control  to  the  calling  program 
(e.g.  MAINPG)  without  further  action  by  the  user. 

It  should  also  be  called  to  the  reader's  attention 
that  the  DEX  library  subroutines  employ  no  labeled  common 
blocks.  Rather,  all  variable  values  are  transmitted  by 
means  of  the  calling  sequences.  This  was  done  to  minimize 
the  possibility  of  inadvertently  passing  improper  values 
among  the  many  subprograms  which  share  the  same  commons. 
The  calling  sequence  presents  a  readily -checked  format  for 
tracing  errors. 

The  only  variable  in  the  calling  sequence  for  DIALOG 
is  the  logical  variable  MTERSE.  If  MTERSE* . TRUE . ,  the 
dialogue  type  is  terse;  it  is  is  .FALSE,  the  dialogue  is 
verbose.  These  two  types  of  dialogues  are  offered  to  sat¬ 
isfy  the  needs  of  the  individual  user.  For  the  new  user, 
the  verbose  dialogue  provides  longer  messages  from  the 
module  or  DEX  to  facilitate  learning  how  to  use  them.  The 
terse  dialogue  allows  more  rapid  operations  by  the  experi¬ 
enced  user. 

Initialized  in  BLOCK  DATA,  MTERSE  can  have  its  value 
changed  by  the  correct  selection  from  menu  "MOD.ALTR" . 

This  is  accomplished  by  subroutine  MENUIN .  MENUIN  is  a 


61 


DEX  integer  function  (see  reference  (5])  which  converts  a 
menu  selection  into  an  integer  value.  In  DIALOG,  the  fol¬ 
lowing  statements  are  involved  in  this  process:* 

DATA  LMS/8/ 

DATA  MENUNM / 4  HMOD . , 4HALTR/ 

DATA  NITEMS/2/ 

DATA  ITEMS/4HTERS , 4 HE 

1  / 4  HVERB  4H0SE  / 

CALL  STRPAK  (MESs/lMS , 4H<  ,29HSELECT  TYPE  OF  MOD 
1ULE  DIALOGUE*1 ) 

ITEM-MENU  IN  (MENUNM ,  NITE11S  /  ITEMS  ,  MESS ) 

MENUIN  prints  both  the  prompting  message  MESS  shown 
above  and  the  message 

* ENTER  AN  ITEM  FROM  MENU  -  MOD . ALTR 
MENUIN  sets  ITEM  equal  to  1  if  the  user  selects  TERSE  and 
2  if  he  selects  VERBOSE.  ITEM  is  then  used  to  branch  to 
statements  which  make  MTERSE  either  .TRUE,  or  .FALSE, 
as  appropriate.  Both  branches  return  control  to  the  cal¬ 
ling  program. 

3 . 3  Subroutine  SOURCE 

3.3.1  Menu  and  Calling  Sequence.  Subroutine  SOURCE 
normally  accessed  from  a  subprogram  like  MAINPG,  allows 
the  user  to  select  from  the  menu  shown  in  Figure  3-2  the 
source  of  information  to  be  read.  Subroutine  MENUIN 
assigns  a  value  between  1  and  5  to  IMODE  depending  on  the 
user's  choice. 

*  STRPAK  is  a  DEX  routine  which  inserts  character  strings 
into  an  integer  array  in  the  DEX  format  of  four  charac¬ 
ters  per  word.  See  ref  [5]. 
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The  calling  sequence  for  SOURCE  is  as  follows: 

SUBROUTINE  SOURCE ( IMODE , DBFNME , IFILNM , RNRFIL , 

MTERSE , NCPW) 


OBFNME  is  the  database  filename  when  the  source  is  a 
database.  IFILNM  is  the  name  of  the  sequential  file  if 
the  user  intends  to  read  from  a  file.  RNRFIL  is  an  input 
variable  defined  in  BLOCK  DATA  which  represents  the 
device  number  to  be  assigned  to  file  IFILNM.  The  infor¬ 
mation  in  the  file  will  be  read  in  by  one  of  the  reading 
routines  using  the  statement  of  the  form 
READ  (RNRFIL,  FORMAT)  X 

where  X  represents  the  variable  being  read.  MTERSE  and 
NCPW  are  required  here  for  the  preparation  of  the  menu 
prompting  message  and  other  error  messages  supplied  by 
subroutine  source. 


$  + - + 

$  +  MENU  + 

$  +  SOURCE  + 

$  - - + 

$  1  +  DATABASE  + 

$  + - + 

$  2  +  TERMINAL  + 

$  + - + 

$  3  +  SCREEN  + 

$  + - + 

$  4  +  FILE  + 

$  + - + 

$  5  4-  DEFAULT  + 

$  + - + 


Figure  3-2.  Menu  "SOURCE" 
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3.3.2.  Operation  of  SOURCE.  SOURCE  commences  execu¬ 
tion  by  calling  MENU IN  to  prompt  the  user  to  make  a  menu 
selection.  MENUIN  assigns  an  appropriate  value  to  IMODE 
for  branching. 

If  IM0DE=1,  the  subroutine  requires  a  database  via 
DEX  logical  function  DBOPEN .  If  there  already  is  an  open 
database,  DBOPEN  asks  the  user  if  he  wants  to  use  it,  and 
if  so,  if  he  wants  to  save  it  ("save”  has  the  usual  mean¬ 
ing  of  writing  a  copy  into  memory  from  the  buffers)  be¬ 
fore  using  it.  If  a  database  is  "active",  meaning  a  copy 
is  in  the  buffers  but  there  is  also  a  saved  copy  in  mem¬ 
ory,  the  user  is  asked  only  if  he  wants  to  use  it.  If  the 
user  answers  "no"  to  either  of  these  questions,  or  if  there 
is  no  active  or  open  database,  DBOPEN  prompts  the  user  for 
the  name  of  either  a  new  one  to  be  created  or  an  existing 
one  to  be  opened.  DBFNME  is  assigned  that  name.  When 
this  is  done  control  is  returned  to  the  calling  program. 

If  IM0DE»2  (terminal)  or  5  (default  values)  control 
simply  returns  to  the  calling  program.  If  IMODE-3,  indi¬ 
cating  that  the  user  hoped  to  employ  DEX  routines  to  read 
X-Y  coordinates  from  a  screen  plot,  he  is  informed  that 
this  mode  of  module  input  has  not  been  implemented  yet. 

IM0DE*4  causes  the  calling  of  subroutine  GETFLNM 
which  asks  the  user  the  name  of  the  sequential  file  to  be 
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read.  Then  logical  function  SETDEV  assigns  RNRFIL  to 
IFILNM  before  control  returns  to  the  calling  program. 

3 . 4  Subroutine  DESTIN 

3.4.1  Menu  and  Calling  Sequence.  Subroutine  DESTIN 
is  similar  to  SOURCE  except  that  there  are  only  four  pos¬ 
sible  choices,  as  seen  in  the  menu  illustration  in  Figure 
3-3.  The  calling  sequence  contains  six  parameters: 

SUBROUTINE  DESTIN ( OMODl  <BFNME , OFILNM , RNWFIL , 

MTERSE ,NCPW) 

OMODE  is  assigned  a  value  between  1  and  4  by  MENUIN . 
DBFNME  is  the  same  as  in  SOURCE.  OFILNM  is  the  name  of 
the  sequential  file  to  which  output  is  to  be  written. 
RNWFIL  is  an  input  variable  defined  in  BLOCK  DATA  which 
represents  the  file  reference  number  to  be  assigned  to 
OFILNM  for  Fortran  WRITE. 

3.4.2  Operation  of  DESTIN.  This  subroutine  behaves 
very  similarly  to  SOURCE.  If  0M0DE-1,  DBOPEN  checks  for 
and  opens  as  necessary  a  database  and  assigned  DBFNME  its 
name.  If  0M0DE»2,  control  simply  returns  to  the  calling 
program.  If  the  user  selected  the  screen  in  order  to  do 
plotting,  he  is  informed  that  this  mode  of  output  has  not 
yet  been  implemented  and  is  asked  to  make  another  selec¬ 
tion.  If  0M0DE*4,  the  user  is  asked  the  file  name  and 

it  is  assigned  to  OFILNM.  Then  logical  function  SETDEV 
assigns  RNWFIL  to  the  file  and  control  is  returned  to  the 
calling  program. 
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$  +  MENU  + 

$  +  DESTINAT  + 

$  + - + 

$  1  +  DATABASE  + 

$  + - + 

$  2  +  TERMINAL  + 

$  + - + 

$  3  +  SCREEN  + 

$  + - + 

$  4  +  FILE  + 

$  + - +• 


Figure  3-3.  Menu  "DESTINAT" 
(for  Subroutine  DESTIN) 


3 . 5  Subroutine  MDMODE 


3.5.1  Function.  Subroutine  MDMODE  informs  the  user 
of  the  current  value  of  t.  e  following  variables: 

(1)  MTERSE ,  which  denotes  the  type  of  module  dia¬ 

logue 

(2)  IMODE  ,  which  denotes  the  source  of  information 

to  be  read 

(3)  OMODE  ,  which  denotes  the  destination  of  infor¬ 

mation  to  be  written 

(4)  RNRFIL,  which  denotes  the  file  reference  number 

for  module  Fortran  READ  from  a  sequential 
file 

(5)  RNWFIL,  which  denotes  the  file  reference  number 

for  module  Fortran  WRITE  to  a  sequential 
file 


•'iw,*; 
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After  displaying  this  information,  or  an  error  message  if 
a  failure  occurs,  MDMODE  returns  control  to  the  calling 
program. 

3.5.2  Operation  of  MDMODE.  The  calling  sequence  for 

MDMODE  contains  only  variables  already  discussed. 

SUBROUTINE  MDMODE ( IMODE ,0 MODE , RNRFIL , RNWFIL , 

MTERSE , NCPW) 

MDMODE  does  not  display  the  numerical  values  of  IMODE  and 
OMODE  but  rather,  for  the  user's  convenience,  it  prints 
character  strings  defining  the  source  and  destination,  e.g. 
"a  dex  created  database"..  Similarly,  for  MTERSE,  it  prints 
"terse"  and  "verbose"  vice  " . TRUE . "  or  ".FALSE.". 

3 . 6  Logical  Function  CHKRNG 

Logical  function  CHKRNG  determines  if  an  integer  num¬ 
ber  is  within  the  range  defined  by  two  other  integer  num¬ 
bers.  If  not,  an  appropriate  error  message  is  issued  and 
CHKRNG  is  returned  .FALSE..  The  calling  sequence  is  as 
follows : 

LOGICAL  FUNCTION  CHKRNG (NUMBER, MNEMON,MINNUM, 

MAXNUM , NCPW) 

The  routine  checks  if  NUMBER  is  between  the  lower  number 
MINNUM  and  the  higher  number  MAXNUM.  MNEMON  is  an  8- 
character  memonic  for  NUMBER  used  in  the  error  message. 

The  use  of  CHKRNG  avoids  the  need  for  the  module  author 
to  include  a  message  in  his  program. 
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CHAPTER  4 

THE  EXTENDED  DEX  LIBRARY  READING  ROUTINES 

4 . 1  General  Description 

4.1.1  Function.  Information,  which  includes  both 
input  values  and  previously  calculated  output  values, 
resides  in  four  locations:  DEX-created  databases,  the 
user  himself,  requested  files  and  default  data  stored  in 
the  module.  The  user  actually  presents  two  distinct 
sources  of  information  to  the  computer  because  of  the  two 
ways  in  which  he  can  transmit  data  at  the  terminal:  the 
first  in  the  form  of  alphanumeric  characters  and  the  other 
by  the  location  of  a  pen-pointer  or  cross-hairs  on  a  plot 
on  the  screen.  The  latter  method  has  not  yet  been  imple¬ 
mented  in  DEX  at  MIT. 

The  function  of  the  extended  DEX  library  reading 
routines  is  to  permit  the  transmission  of  that  infor¬ 
mation  to  the  module  so  that  it  can  be  written  to  other 
locations,  such  as  the  terminal  for  inspection,  and/or 
used  as  input  for  the  calculations  being  performed. 

4.1.2  Organization.  Eight  logical  functions 
comprise  the  reading  routines  group.  They  are  listed 
here  by  the  type  of  variable  on  which  the  operate: 
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Integer 

Real 

Real 

Scalar 

Scalar 

Array 

ISCLDR 

RSCLDR 

RA1LDR 

ISCPMP 

RVAPMP 

ISREAD 

RSREAD 

RA1RED 

The  real  scalar  and  array  categories  share  RVAPMP. 

These  routines  could  be  categorized  horizontally 
by  their  specific  jobs,  as  evidenced  by  the  similarities 
in  their  names.  The  top  three  are  called  "loaders". 

These  are  the  functions  that  appear  in  the  module  sub¬ 
programs  where  it  is  desired  to  read  variables,  and  to 
the  module  author,  for  all  intents  and  purposes,  they  are 
the  reading  routines.  He  does  not  need  to  be  aware  that 
they  actually  call  the  others  to  do  the  work. 

If  the  user  intends  to  input  from  the  terminal  he 
needs  to  be  prompted  for  the  correct  information.  This 
prompting  message  can  be  supplied  by  the  module  or  it 
can  be  prepared  by  two  routines  in  this  group  called 
"prompters".  The  loaders  call  the  prompters  as  they  are 
required.  Having  ensured  that  a  prompting  message  exists, 
the  loaders  then  call  the  third  category,  the  “readers", 
to  actually  read  in  and  assign  the  values  to  the  input, 
output  and  working  variables. 
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4.2  Integer  Scalar  Series 
4.2.1  ISCLDR 

4. 2. 1.1  Calling  sequence.  The  calling 
sequence  for  logical  function  ISCLDR  includes  17  vari¬ 
ables  listed  here: 

LOGICAL  FUNCTION  ISCLDR ( IVAR, ALLFLG , 

MTERSE , IOMODE , NCPW , DBNAME , VITAL 
MENUFL , MENUNM , NITEMS , ITEMS , PMPREP , 
PMES , PMORGN , RNFILE , FORMAT , DEFALT) 

From  the  point  of  view  of  the  function,  IVAR  is  an  output 

variable,  ALLFG  is  both  input  and  output,  and  the  remainder 

are  all  input  variables. 

IVAR  is  where  the  value  of  the  integer  sought  will 
be  stored.  VITAL  should  be  discussed  next.  An  essential 
input  variable,  that  is  one  required  when  reading  input 
so  that  subsequent  values  can  be  entered  correctly,  is 
indicated  when  the  logical  variable  VITAL  has  a  value 
.TRUE..  This  is  important  to  the  value  of  ALLFG.  ALLFLG 
indicates  the  status  of  the  calling  program  "all"  option 
(active  when  ALLFLG- . TRUE . ) .  If  both  VITAL  and  ALLFLG 
are  .TRUE,  and  IVAR  is  not  read  successfully,  or  the 
prompting  message  is  not  prepared  successfully,  ALLFLG 
will  be  changed  to  .FALSE..  ALLFLG 's  value  can  also  be 
changed  to  .FALSE,  during  a  reading  evolution  if  I0M0DE-4 
(file  source)  and  a  premature  end-of-file  is  encountered. 

(  Otherwise  ALLFLG  will  retain  its  input  value. 
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MTERSE  indicates  whether  the  module  dialogue  is 
terse  or  verbose.  XOMODE  denotes  the  source  of  input  and 
corresponds  to  IMODE  in  the  calling  program.  NCPW  is  the 
number  of  characters  per  word  assumed  by  the  DEX  routines. 
DBNAME  is  where  the  database  name  of  the  integer  is  stored. 
Eight  characters  (including  blanks)  must  be  defined  for 
this  variable. 

MENUFL  is  a  logical  variable  which  indicates  if  the 
integer  sought  will  be  a  menu  selection.  If  it  is  .TRUE., 
the  next  three  variables  must  be  defined.  MENUNM  is  the 
eight-character  name  of  the  menu  from  which  the  selection 
will  be  made.  NITEMS  is  the  number  of  items  in  the  menu. 

In  the  current  version  of  DEX,  the  maximum  number  of  menu 
items  allowed  is  12.  ITEMS  are  the  menu  choices.  Each 
choice  is  described  by  a  name  of  eight  characters  (in¬ 
cluding  blanks) .  Therefore,  with  four  characters  per 
word,  ITEMS  must  be  dimensioned  as  twice  NITEMS  where  it 
first  appears.  The  reader  may  wish  to  refer  to  the  AUNIT 
series  routines  of  Chapter  7  as  examples  of  where  menus 
are  used  to  define  integer  values. 

PMPREP  is  a  logical  variable  which,  when  .TRUE., 
indicates  that  function  ISCPMP  will  prepare  the  prompting 
message  for  the  menu  or  INTIN.  INTIN  is  a  DEX  routine 
which  reads  integer  values  entered  from  the  terminal. 


If  PMPREP* .FALSE. ,  the  calling  program  supplies  the 
prompting  message  in  PMES. 

PMES  can  be  up  to  64  characters  long,  and  if  less 
than  64  characters  it  must  include  the  trim  character, 

"<",  last  to  signal  the  end  of  the  string.  Note  that 
if  PMP REP* . TRUE . ,  PMES  is  undefined  in  the  calling  se¬ 
quence  of  ISCLOR. 

PMORGN  ("prompting  message  origin")  is  a  character 
string,  usually  the  database  comment,  which  identifies 
the  variable  sought.  Like  PMES,  it  must  be  64  charac¬ 
ters  or  less  long  and  must  include  the  trim  character  at 
its  end  if  less  than  64.  When  I0M0DE*1,  PMORGN  will  be 
compared  with  the  database  comment  and  differences  brought 
to  the  user’s  attention. 

RNFILE,  corresponding  to  RNRFIL  of  the  calling 
program,  is  the  device  number  for  Fortran  READ  if  the 
integer  is  to  be  read  from  a  file.  FORMAT  is  the  format 
for  reading  from  the  file.  DEFALT  is  the  default  value 
of  the  integer  sought  when  I0M0DE*5. 

4. 2.1. 2  Characteristics .  When  the  source 
of  the  integer  is  the  terminal,  ISCLDR  invokes  routine 
CHKRNG  to  verify  that  NITEMS  is  between  1  and  12  inclusive 
when  MENUFL* . TRUE . .  If  PMP REP*. TRUE. ,  ISCLDR  invokes 
ISCPMP  to  prepare  the  prompting  message.  If  ISCPMP  is 
returned  .FALSE.,  ISCLDR  is  also  set  to  .FALSE,  and 
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control  returns  to  the  calling  program.  Otherwise,  for 
terminal  input,  as  well  as  database,  file  and  default 
value  input,  ISCLDR  calls  logical  function  ISREAD  to  do 
the  reading.  ISCLDR  is  set  to  .TRUE,  or  .FALSE,  depending 
on  the  similar  value  of  ISREAD  and  control  returns  to 
the  calling  program. 

ISCLDR  becomes  .FALSE,  if  ISCPMP  or  ISREAD  fails. 

It  also  becomes  .FALSE,  if  the  programmer  has  bypassed 
previous  checks  and  set  I0M0DE»3.  The  user  is  informed 
by  ISCLDR  that  integer  scalars  cannot  be  read  in  from  a 
screen  supplying  x-y  coordinates.  The  subprogram  then 
checks  VITAL  and  if  .TRUE.,  it  advises  the  user  that  the 
variable  is  essential  for  program  continuation  and  must 
be  corrected.  Then,  if  ALLFLO . TRUE . ,  it  is  changed  to 
.FALSE,  and  the  user  is  advised  that  the  calling  program 
"all"  option  is  aborted.  ISCLDR  is  set  to  .FALSE,  and 
control  returns  to  the  calling  program. 

4.2.2  ISCPMP 

4. 2. 2.1  Calling  sequence.  Logical  function 
ISCPMP  is  used  to  prepare  a  prompting  message  suitable 
for  identifying  the  integer  being  sought  when  the  source 
is  the  terminal  (I0M0DE-2)  and  PMPREP- . TRUE . .  The 
calling  sequence  for  this  function  is  as  follows: 

LOGICAL  FUNCTION  I SCPMP ( PMES , ALLFLG , MTERSE , NCPW , 

DBNAME , VITAL , MENUFL , PMORGN) 
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These  parameters  have  been  described  in  section  4. 2. 1.1 
PMES  is  the  output  variable  where  the  prompting  message 
sought  is  stored.  MTERSE  is  needed  here  to  determine 
whether  a  brief  or  long  message  is  to  be  prepared. 

MENUFL  is  included  here  but  presently  it  i3  not  used  by 
ISCPMP. 

4. 2. 2. 2  Characteristics .  ISCPMP  creates 
the  prompting  message  by  insering  the  word  "ENTER", 
followed  by  a  short  or  long  description  of  the  variable 
depending  on  MTERSE,  into  PMES.  When  the  dialogue  i3 
verbose,  PMORGN  is  used  as  the  indentifying  string.  The 
program  scans  it  for  the  location  of  the  trim  character 
to  determine  its  length.  If  the  string  is  51  characters 
or  less,  the  message  can  be  fit  on  one  line.  "ENTER" 
and  "PMORGN"  are  copied  into  PMES.  If,  however,  PMORGN 
has  more  them  64  characters,  the  prompting  message  must 
be  two  lines  long.  The  word  "ENTER"  is  printed  immediately 
and  PMORGN  alone  is  copied  onto  PMES,  to  be  printed  by 
ISREAD. 

When  the  dialogue  is  terse,  PMES  is  created  from 
"ENTER"  and  the  database  name,  DBNAME,  with  a  trim 
character  added  at  the  end. 

If  a  failure  occurs  in  preparing  the  prompting 
message,  an  error  message  is  used.  Then,  when  VITAL* 
.TRUE.,  the  user  is  advised  that  the  variable  is 
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necessary  for  program  input  continuation  and  the 
problem  must  be  corrected.  When  both  VITAL  and  ALLFLG 
are  .TRUE.,  the  later  changes  to  .FALSE,  and  the  program 
advises  the  user  that  the  calling  program  "all"  option 
is  aborted.  Finally,  ISCPMP  is  set  to  .FALSE,  and  con¬ 
trol  returns  to  ISCLOR.  If  the  message  preparation  is 
successful,  ISCPMP  is  set  to  .TRUE,  before  returning 
control  to  ISCLDR. 

4.2.3  ISREAD 

4. 2. 3.1  Calling  sequence.  Logial  function 
ISREAD  actually  does  the  reading  of  the  integer  from  the 
source  defined  by  IOMODE.  The  calling  sequence  for 
ISREAD  is  as  follows: 

LOGICAL  FUNCTION  ISREAD ( I VAR, ALLFLG , 

MTERSE , IOMODE , NCPW , DBNAME , VITAL 
MENUFL , MENUNM , NITEMS , ITEMS , 

PMES , RNF ILE , FORMAT , DEFALT ) 

It  is  almost  identical  to  TSCLDR,  the  difference  being 
that  PMPREP  is  no  longer  needed.  PMES  should  be  defined 
here  and  it  must  include  the  trim  character  if  not  64 
characters  long . 

4. 2. 3. 2  Characteristics .  ISREAD  branches 
depending  on  the  value  of  IOMODE.  If  the  source  of  the 
integer  is  a  database  (IOMODEBl) ,  ISREAD  extracts  the 
value  using  the  DEX  integer  function  IGET  (see  reference 
[5]).  IGET  provides  error  codes  which,  if  other  than 
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success,  cause  appropriate  error  feedback  messages  to  ue 
issued. 

When  IOMODE-2  (terminal  input),  and  MENUFL* . TRUE . , 
routine  MENUIN  is  invoked  to  obtain  IVAR  from  the  menu 
selection.  When  a  menu  is  not  employed,  DEX  routine 
INTIN  prompts  the  user  to  supply  the  integer  value  and 
reads  what  is  entered  at  the  terminal. 

For  I0M0DE-4  (file  source) ,  ISREAD  uses  a  Fortran 
READ  statement,  involving  RNF1LE  and  FORMAT,  to  read  from 
the  file.  The  program  issues  a  warning  if  a  premature 
end-of-file  is  encountered. 

Whenever  an  error  occurs  in  the  reading,  or  if  the 
user  insists  on  trying  I0M0DE»3,  VITAL  and  ALLFLG  are 
checked.  A  warning  that  the  variable  is  essential  for 
program  continuation  is  issued  when  VITAL* . TRUE . .  ALLFLG 
will  then  be  set  to  .FALSE,  if  not  already.  ALLFLG' s 
value  will  also  be  changed,  even  if  the  variable  is  not 
essential,  if  either  no  open  database  was  found  (I0M0DE*1) 
or  a  premature  end-of-file  is  encountered  (IOMODE»4) , 
since  further  attempts  at  reading  from  these  sources 
would  be  fruitless.  In  all  cases  of  errors,  ISREAD  is 
set  to  .FALSE,  and  control  is  returned  to  the  calling 
program.  When  the  reading  is  successful,  ISREAD  is  set 


to  .TRUE. . 


4.3  Real  Scalar  Series 


4.3.1  Brief  description.  The  function  of  this  group 
of  routines  is  to  permit  the  user  to  read  real  scalar 
values  from  any  of  the  designated  sources.  Three  logical 
functions  make  up  this  series:  RSCLDR,  RVAPMP  and 
RSREAD.  RVAPMP  prepared  prompting  messages  for  reading 
both  real  scalars  and  real  arrays  from  the  terminal. 

4.3.2  RSCLDR 

4. 3. 2.1  Calling  sequence.  Logical  function 
RSCLDR  is  invoked  from  the  module.  Its  calling  sequence 
is  as  follows: 

LOGICAL  FUNCTION  RSCLDR (RVAR, ALLFLG, 

MTERSE , IOMODE , NCPW , 

DBNAME , UNITFM , UNITFA , UNITNM , VITAL 
PMPREP , PMES , PMORGN , RNFILE , FORMAT , 
DEFALT) 

Many  of  these  variables  are  identical  to  those  used  in 
ISCLDR. 

RVAR  will  be  assigned  the  value,  in  program  standard 
units,  of  the  real  number  to  be  read.  UNITFM  and  UNITFA 
are  respectively  the  multiplicative  and  additive  conver¬ 
sion  factors  which  convert  the  real  scalar  read  from  the 
user  input/output  units  to  the  program  units.  The  con¬ 
version  occurs  in  RSREAD.  UNITNM  is  a  12-character  ver¬ 
sion  (including  blanks)  of  the  user  i/o  units,  which  is 
used  in  preparing  the  prompting  message.  If  the  real 
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scalar  is  not  dimensional,  UNITFM  must  be  equal  to  1.0, 
UNITFA  must  equal  0.0  and  UNITNM  is  undefined. 

PMORGN  contains  a  string  of  64  characters  or  less 
which  identify  the  variable  sought.  If  it  has  less  than 
64  characters  it  must  have  the  trim  character  at  the 
end  of  the  string.  If  the  real  variable  has  units, 

PMORGN  should  contain  the  string  "(????????????)"  into 
which  UNITNM  is  inserted  at  the  appropriate  time.  PMES 
must  be  dimensioned  sufficiently  large  to  accomodate 
PMORGN  plus  6  characters  (for  "ENTER  ")  or  64  characters, 
whichever  is  less. 

4. 3. 2. 2  Characteristics .  RSCLDR  behaves 
similarly  to  ISCLDR.  If  the  source  is  the  terminal  and 
PMPREP— . TRUE . ,  it  calls  RVAPMP  to  prepare  a  prompting 
message.  When  the  preparation  is  unsuccessful,  RVAPMP 
is  returned  .FALSE..  RSCLDR  becomes  .FALSE,  also  and  con¬ 
trol  returns  to  the  calling  program.  If,  however,  the 
message  preparation  is  successful,  or  for  IOMODE-1,  4 
or  5,  RSCLDR  calls  RSREAD  to  read  the  real  value.  RSCLDR 
is  set  to  .TRUE,  or  .FALSE,  depending  on  the  success  or 
failure  of  RSREAD. 

When  IOMODE-3,  RSCLDR  informs  the  user  that  reading 
x-y  coordinates  from  a  graph  on  the  screen  in  inappropiate 
for  real  scalar  input.  If  VITAL- . TRUE . ,  it  issues  an 
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advisory  message  to  the  user  that  the  variable  is  essential 
for  program  continuation.  ALLFLG  is  changed  to  .FALSE, 
if  not  already,  with  a  warning  that  the  "all"  option  is 
aborted,  RSCLDR  is  set  to  .FALSE.,  and  control  returns 
to  the  calling  program. 

4.3.3  RVAPMP 

4 . 3 . 3 . 1  Calling  sequence.  Both  RSCLDR  and 
RA1LDR  invoke  RVAPMP  to  prepare  a  prompting  message  for 
real  scalars  an d  real  arrays  respectively.  The  calling 
sequence  is : 

LOGICAL  FUNCTION  RVAPMP (PMES , ALLFLG , 

MTERSE , NCPW , DBNAME , UNITOM , VITAL , 
PMORGN) 

These  parameters  are  identical  to  those  for  ISCPMP  ex¬ 
cept  for  UNITNM  which  carries  the  user  i/o  unit  to  be 
inserted  into  PMES . 

4. 3. 3. 2  Characteristics .  When  RVAPMP  is 
invoked,  PMORGN  is  scanned  for  the  location  of  the  trim 
character  and  for  the  string  "{????????????)"  called 
UNITPT .  The  presence  of  UNITPT  indicates  that  the  vari¬ 
able  is  dimensional. 

When  the  dialogue  is  verbose,  the  prompting  mes¬ 
sage  will  be  one  line  long  if  the  trim  character  is 
found  before  the  59th  position.  The  word  "ENTER  "  and 
PMORGN  are  copied  into  PMES,  and  UNITNM  is  inserted 
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into  UNITPT  if  applicable.  This  is  why  UNITNM  must  be 
12  characters  long.  If  PMORGN  is  longer  than  58  charac¬ 
ters,  the  prompting  message  will  be  two  lines  long.  The 
string  "ENTER"  is  printed  immediately  and  PMORGN  alone 
is  copied  into  PMES,  corrected  by  UNITNM  if  necessary. 
PMES  will  be  the  second  line  of  the  prompting  message. 

When  the  dialogue  is  terse,  PMES  is  created  from 
the  word  "ENTER  ",  followed  by  DBNAME,  UNITPT  adjusted 
by  UNITNM,  and  lastly  a  trim  character. 

If  the  message  preparation  is  successful,  RVAPMP 
is  set  to  .TRUE,  and  control  returns  to  RSCLDR  or  RA1LDR 
as  applicable.  If,  however,  an  error  occurs,  VITAL  is 
checked.  The  user  is  advised  that  the  variable  is  es¬ 
sential  when  VITAL- . TRUE . .  If  ALLFLG  also  is  .TRUE., 
it  is  changed  to  .FALSE,  and  the  user  told  the  "all" 
option  is  no  longer  in  effect.  In  all  cases  of  error, 
RVAPMP  is  returned  a3  .FALSE,  to  the  calling  program. 

When  successful,  RVAPMP  is  set  to  .TRUE,  before  returning 
control . 

4.3.4  ft S READ 

4. 3. 4.1  Calling  sequence.  Logical  function 
RSREAD  reads  the  real  scalar  sought  from  one  of  the  four 
valid  sources  of  information.  It  includes  13  parameters 
(  in  its  calling  sequence,  almost  all  of  which  are  identi¬ 

cal  to  those  in  RSCLDR.  The  sequence  is  listed  here: 


80 


LOGICAL  FUNCTION  RS READ (RVAR, ALLFLG 

MTERSE , IOMODE , NCPW, DBNAME , 

UNITFM , UNITF A , 

VITAL , PMES , RNFILE , FORMAT , DEFALT) 
Note  the  absence  of  UNITNM,  PMPREP  and  PMORGN.  These 
variables  have  either  been  used  or  incorporated  into 
PMES,  which  is  defined  at  this  point. 

4. 3, 4. 2  Characteristics .  If  the  source  of 
information  is  indicated  to  be  the  user  hoping  to  input 
x-y  coordinates  from  the  screen,  he  is  informed  that  this 
mode  of  input  is  inappropriate  for  real  scalar  input. 

The  usual  checks  of  VITAL  and  ALLFLG  and  messages  occur. 

The  DEX  routine  RGET  is  used  to  read  the  real 
scalar  from  the  database  and  it  returns  error  codes  for 
either  success  or  the  problems  which  can  occur.  The 
latter  are  brought  to  the  user's  attention.  DEX  routine 
REALIN  (reference  [5])  is  used  to  read  the  real  scalar 
from  the  terminal. 

In  cases  where  an  error  occurs,  the  user  is  informed 
if  the  variable  is  essential  for  input  continuation. 

When  VITAL  and  ALLFLG  are  both  .TRUE.,  ALLFLG  is  set  to 
.FALSE,  and  the  user  is  informed.  Further,  if  I0M0DE-1 
but  there  is  no  open  database,  or  I0M0DE*4  but  a  pre¬ 
mature  end-of-file  is  encountered,  ALLFLG  is  set  to 
.FALSE,  regardless  of  the  value  of  VITAL. 
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RSREAD  is  set  to  .TRUE,  if  successful  and  .FALSE, 
if  an  error  occurs,  and  control  is  then  returned  to  the 
calling  program.  When  successful,  prior  to  returning 
control,  the  value  read  is  converted  into  program  stan¬ 
dard  units  by  the  expression 

RVAL-RVAL  *  UNITFM  +  UNITFA 

4 . 4  Real  Array  Series 

4.4.1  Brief  description.  The  real  array  reading 
routines  include  RA1LDR  and  RA1RED,  plus  RVAPMP  which  is 
shared  with  the  real  scalar  series.  Their  function  is 
to  read  one  dimension  real  arrays,  up  to  the  current 
DEX  limit  of  200  elements,  from  any  of  the  four  valid 
sources  of  input.  The  reading  of  x-y  coordinates  from 
the  screen,  while  legitimate  for  an  array  since  it  cam 
store  a  pair  of  real  numbers,  has  not  been  implemented 
yet  and  the  user  is  advised  of  this.  The  next  generation 
of  DEX  at  MIT  will  include  routines  for  reading  and 
writing  two  arrays  simultaneously  for  graphics  tasks. 

4.4.2  RA1LDR. 

4. 4. 2.1  Calling  sequence.  Logical  function 
RA1LDR  invokes  RA1RED  to  read  a  real  array  from  the 
designated  source.  It  also  calls  RVAPMP  as  necessary  to 
prepare  a  prompting  message  for  terminal  input.  Its 
calling  sequence,  listed  here,  has  a  few  parameters  not 


I 
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seen  in  RSCLDR: 
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LOGICAL  FUNCTION  RAlLDR (RlARR, ALLFLC ,NGOT , 

MTERSE , IOMODE , NCPW , DBNAME , 

MXTOGT , UNITFM , UNITFA, UNITNM , 

VITAL 

PMPREP , PMES , PMORGN , RNFILE , FORMAT , 
NDEF, DEFALT) 

RlARR  is  the  real  array  that  will  store  the  elements,  in 
program  standard  units,  that  are  read.  MXTOGT  repre¬ 
sents  the  maximum  number  of  elements  to  be  read  into 
RlARR,  and  is  the  dimensioned  size  of  RlARR.  NGOT  is 
the  number  of  elements  actually  read  and  can  be  less  than 
or  equal  to  MXTOGT.  NGOT  need  not  be  defined  when  RAlLDR 
is  invoked.  NDEF  is  the  number  of  default  values  and  is 
provided  to  allow  the  default  condition  to  be  smaller 
than  the  maximum  capability  of  the  array. 

4. 4. 2. 2  Characteristics .  When  I0M0DE*2 
and  PMPREP* . TRUE . ,  RAlLDR  invokes  RVAPMP  to  prepare 
PMES.  When  RVAPMP  is  successful,  and  for  the  other 
valid  sources  of  input  (I0M0DE-1,  4  or  5) ,  RAlLDR  calls 
RA1RED.  If  either  RVAPMP  or  RA1RED  are  not  successful, 
RAlLDR  is  set  equal  to  .FALSE..  This  also  occurs  when 
I0MCDE*3.  It  is  set  to  .TRUE,  otherwise  and  control  is 
returned  to  the  calling  program. 

4.4.3  RA1RED 

4. 4. 3.1  Calling  sequence.  The  calling 
sequence  for  RA1RED  is  as  follows: 
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LOGICAL  FUNCTION  RAlRED (R1ARR, ALLFLG, NGCT 

MTERSE , IOMODE , NCPW , DBNAME , MXTOGT , 
UNITFM , UNITFA , VITAL , 

PMES , RNFILE , FORMAT , NDEF , DEFALT) 

Like  in  RSREAD,  UNITNM,  PMPREP  and  PMORGN  are  no  longer 
required.  MXTOGT  represents  the  maximum  number  of  ele¬ 
ments  to  be  read  into  RlARR,  always  starting  at  position 
1.  NGOT  is  defined  in  RAlRED. 

4. 4. 3. 2  Characteristics .  RAlRED  first 
employs  DEX  routine  CHKRNG  to  verify  that  MXTOGT  is  not 
greater  than  the  maximum  DEX  array  size  (currently  200 
elements) . 

If  IOMODE3 3 /  the  real  array  is  not  read  and  the 
appropriate  checks  of  VITAL  and  ALLFLG  and  message 
issuing  occur. 

The  reading  of  an  array  from  a  database  is  accomp¬ 
lished  by  DEX  routine  AGET,  which  seeks  MXTOGT  elements 
from  the  database  array.  AGET  returns  six  possible  re¬ 
sult  codes.  RCODE *0  is  simple  success,  that  is,  there 
were  MXTOGT  elements  stored  in  the  database  array.  NGOT 
is  set  equal  to  MXTOGT.  If  RCODE*l,  there  was  no  open 
database.  This  causes  ALLFLG  to  change  to  .FALSE,  if 
it  was  .TRUE,  and  RAlRED  to  be  set  to  .FALSE..  RAlRED 
i3  also  set  to  .FALSE,  if  the  variable  does  not  exist  in 
the  database  (RC0DE«2),  if  it  is  not  an  array  (RCODE»3), 
of  if  it  was  undefined  (RC0DE*4) .  When  the  number  of 
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elements  requested  exceeds  the  number  stored  (RC0DE*5) , 
the  extra  elements  in  R1ARR  are  set  equal  to  0.0  but 
NGOT  is  set  equal  to  the  number  stored.  When  the  number 
of  elements  requested  is  less  than  the  number  of  elements 
stored  (RCODE»6) ,  the  first  MXTOGT  elements  are  read  into 
R1ARR  and  NGOT  is  set  equal  to  MXTOGT.  The  user  is  ad¬ 
vised  in  these  circumstances  of  what  has  occurred. 

When  reading  from  the  terminal,  DEX  logical  function 
REALIN  is  invoked  with  the  following  statement: 

LOGVAL  -  REALIN  (MXTOGT, NEED, RlARR, PMES) 

A  prompting  message  asks  the  user  to  input  up  to  MXTOGT 
values.  NEED  represents  the  difference  between  the 
number  of  elements  read  in  and  MXTOGT.  If  no  elements 
are  read  (NEED«MXTOGT)  the  reading  is  considered  a  failure. 
The  reading  is  considered  successful  if  at  least  one  num¬ 
ber  is  entered.  NGOT  is  set  equal  to  the  number  of  ele¬ 
ments  entered. 

The  user  is  advised  if  a  premature  end-of-file  is 
encountered  when  reading  from  a  file. 

When  failures  occur,  VITAL  and  ALLFLG  are  processed 
as  usual.  Then  RA1RED  is  set  to  .FALSE,  and  control 
returns  to  the  calling  program.  If  the  reading  is 
successful,  the  elements  are  converted  into  program 
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standard  units  by  a  DC?  loop  for  NGOT  iterations  with  the 
statement 

RIARR(X)  -  R1ARR ( I ) * UNITFM  +  UNITFA 
Then  RA1RED  is  set  to  .TRUE,  ^nd  control  returns  to  the 
calling  program. 
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CHAPTER  5 


THE  EXTENDED  DEX  LIBRARY  EDITING  ROUTINES 

5 . 1  General  Description 

At  some  point  in  the  operation  of  a  program  the 
user  may  decide  that  he  wants  to  change  the  value  of  one 
or  many  variables.  It  may  be  that  the  value  read  as  in¬ 
put  is  incorrect,  or  he  wants  to  see  the  effect  of  changing 
one  variable  on  the  output.  He  may  even  decide  he  does 
not  like  the  answer  given  by  his  program  and,  before 
storing  it  in  a  database  or  file,  wishes  to  exchange  it 
for  another  value  he  has.  For  whatever  reason,  the  user 
requires  the  capability  to  enter  the  new  value  at  the 
terminal.  The  editing  routines  were  developed  for  this 
purpose . 

Currently  there  are  two  logical  functions  in  this 
category,  ISCEDT  and  RSCEDT,  with  a  third  RAREDT, 
scheduled  to  be  developed  for  the  next  version  of  the 
extended  DEX  library.  ISCEDT  allows  the  editing  of 
integer  scalar  variables,  RSCEDT  allows  the  editing  of 
real  scalars,  and  RAREDT  will  allow  the  changing  of 
elements  in  a  real  array. 
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5 . 2  Logical  Function  ISCEDT 

5.2.1  Calling  sequence.  Logical  function  ISCEDT 
would  be  invoked  by  a  module  subprogram,  normally  when 
IOFLAG  is  set  equal  to  2  in  a  subroutine  like  MAINPG 
described  in  Chapter  2.  The  calling  sequence  includes 
15  parameters  listed  here: 

LOGIAL  FUNCTION  ISCEDT (NEWVAR , ALLFLG , 

MTERSE , NCPW, DBNAME , 

MENUFL , MENUNM , NITEMS , ITEMS , 
PMPREP , PMES , PMORGN , RNFILE , 
FORMAT, DEFALT) 

For  ISCEDT,  the  first  parameter  is  an  output  variable, 
ALLFLG  is  both  input  and  output,  and  the  remainder  are 
all  input  variables. 

NEWVAR  will  store  the  new  value  of  the  integer 
variable  being  changed.  ALLFLG  indicates  the  status  of 
the  calling  program  "all"  option.  Its  value  may  be 
changed  from  .TRUE,  to  .FALSE,  during  the  editing 
sequence . 

Logical  variable  MTERSE  indicates  the  type  of  mo¬ 
dule  dialogue:  terse  or  verbose.  NCPW  represents  the 
number  of  characters  per  word  assumed  by  DEX  routines, 
and  is  dependent  upon  the  particular  computer  in  use 
DBNAME  is  the  9-character  database  name  of  the  integer 
sought . 

When  MENUFL" . TRUE . ,  the  integer  being  sought  is  a 
menu  selection.  The  eight-character  menu  name  is  stored 
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in  MENUNM.  NITEMS  is  the  number  of  menu  items,  and  it 
cannot  exceed  12 .  ITEMS  is  where  the  menu  choices  are 
stored.  Each  item  is  described  by  an  eight-character 
name  (including  blanks) ,  so  that,  at  four  characters  per 
word,  ITEMS  should  be  dimensioned  as  2*NITEMS. 

Since  the  new  integer  value  will  be  entered  at  the 
terminal,  a  prompting  message  is  required.  PMPREP  is  a 
logical  variable  which  indicates  if  the  program  is  to 
prepare  the  message  (.TRUE.)  or  if  it  is  supplied  by  the 
calling  program  (.FALSE.).  PMES  is  where  the  prompting 
message  is  stored.  It  can  be  up  to  64  characters  long, 
and  if  less  it  must  include  the  trim  character,  "<",  at 
its  end.  If  PMPREP* . TRUE . ,  PMES  is  undefined  in  ISCEDT. 

PMORGN  stores  the  information  describing  the  vari¬ 
able  in  question.  It  is  typically  the  database  comment. 
PMORGN  can  be  up  to  64  characters  long  and  requires  the 
trim  character  if  less.  Because  PMORGN  is  used  to  pre¬ 
pare  the  prompting  message  when  the  dialogue  is  verbose, 
if  PMPREP*. FALSE. ,  it  need  not  be  defined  in  ISCEDT. 

RNFILE  is  the  reference  number  for  reading  from  a 
sequential  file  using  Fortran  READ  and  corresponds  to 
RNRFIL  in  the  calling  program.  FORMAT  stores  the  for¬ 
mat  for  reading  from  a  file.  DEFALT  is  the  default 
value  of  the  integer  in  question. 
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5.2.2  Operation.  The  task  of  ISCEDT  is  actually 
quite  simple.  In  order  to  read  a  new  integer  from  the 
terminal,  ISCEDT  merely  invokes  ISCLDR,  using  the  vari¬ 
able  EDMODE,  which  has  a  value  of  2,  in  place  of  IMODE. 
ISCLDR  then  prepares  a  prompting  message,  if  necessary, 
and  calls  ISREAD  to  read  the  value  entered,  ISCEDT  is 
set  to  the  same  value  with  which  ISCLDR  is  returned 
(i.e.,  .TRUE,  for  success),  and  control  returns  to  the 
calling  program. 

In  calling  ISCLDR,  ISCEDT  defines  the  parameter 
VITAL  as  .TRUE,  in  all  cases.  This  stems  from  the  policy 
that  if  the  user  wishes  to  correct  a  value,  he  really 
wants  to  correct  it  for  program  continuation.  Failure 
of  any  of  the  integer  reading  routines  would  change 
ALLFLG  if  it  was  .TRUE,  when  ISCEDT  was  invoked. 

It  may  not  be  readily  apparent  to  the  reader,  but 
because  the  source  will  always  be  defined  as  the  terminal 
by  ISCEDT,  the  calling  parameters  RNFILE,  FORMAT  and 
DEFALT,  used  only  when  IM0DE»4  or  5,  need  not  be  defined 
here.  In  fact,  dummy  variables  could  have  been  used.  It 
was  decided  to  use  the  correct  variables  in  the  calling 
sequence  to  avoid  potential  errors  by  creating  more 
variables.  The  ones  used  should  already  be  available  in 
the  module,  being  needed  for  reading  and  writing  integer 
values . 


5 . 3  Logical  Function  RSCEDT 

5.3.1  Calling  parameters.  Logical  function  RSCEDT 
is  invoked  by  the  module  to  permit  the  editing  of  a  real 
scalar  variable.  Its  calling  sequence  is  as  follows: 

LOGICAL  FUNCTION  RSCEDT (NEWVAR, ALLFLG, 

MTERSE , NCPW , DBNAME , 

UNITFM , UNITFA , UNITNM , 

PMPREP , PMES , PMORGN , RNFILE , 
FORMAT, DEFALT) 

All  of  the  parameters  except  NEWVAR  are  input  variables, 
and  ALLFLG  is  both  an  input  and  output  variable . 

Most  of  these  parameters  are  identical  to  those 
used  in  ISCEDT.  Three  are  new.  UNITFM  and  UNITFA  are 
respectively  the  multiplicative  and  additive  conversion 
factors  for  converting  the  real  scalar  read  in  user  i/o 
units  to  the  value  NEWVAR  in  program  standard  units. 
UNITNM  is  a  12-character  version  (including  blanks)  of 
the  user  input/output  units  of  the  variable,  and  is  used 
in  preparing  the  prompting  message  when  PMPREP* . TRUE . . 

5.3.2  Operation.  RSCEDT  behaves  very  similarly 
to  ISCEDT.  It  calls  RSCLDR  with  the  variable  EDMODE, 
defined  as  2,  in  lieu  of  IMODE  (terminal  source)  and 
VITAL  specified  as  .TRUE..  The  real  scalar  reading 
routines  accept  a  value  entered  at  the  terminal,  convert 
it  to  program  standard  units  and  store  it  in  NEWVAR.  If 
a  failure  occurs,  ALLFLG  changes  to  .FALSE,  if  it  was 
.TRUE,  when  RSCEDT  was  invoked. 
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RSCEDT  is  set  to  the  same  value  as  RSCLDR  (.TRUE, 
if  NEWVAR  is  successfully  read  in,  .FALSE,  if  an  error 
occurred  in  the  reading  sequence)  and  control  is  re¬ 
turned  to  the  calling  program. 

One  can  see  that  the  editing  routines  are  essen¬ 
tially  another  version  of  the  reading  routines.  Current 
plans  for  the  array  editor  anticipate  extending  this 
capability  to  include  reorganizing  the  entries  and  in¬ 
serting  new  values  for  whichever  element  or  group  of 
elements  is  specified  by  the  user.  Further,  it  is  hoped 
that  throught  the  editor,  it  will  be  possible  to  execute 
the  calculation  subprograms  only  for  those  elements 
changed  in  order  to  reduce  computing  costs.  It  may  be 
that  these  options  will  be  operated  by  the  user  by  means 
of  editing  menus  also.  In  short,  the  goal  will  be  to 
simulate  the  editor  capability  of  an  interactive  system 
such  as  CMS  at  MIT. 
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CHAPTER  6 


THE  EXTENDED  DEX  LIBRARY  WRITING  ROUTINES 

6 . 1  General  Description 

Once  information  has  been  read,  edited  or  computed, 
unless  it  is  to  be  used  as  input  for  computations,  it  is 
necessary  to  transmit  it  to  one  of  three  possible  desti¬ 
nations  :  a  DEX-created  database ,  the  terminal  or  a  sequen¬ 
tial  file.  Further,  for  our  purposes,  a  distinction  shall 
be  made  between  writing  alphanumeric  characters  on  the 
terminal  screen  via  DEX  routines  and  plotting  the  infor¬ 
mation  on  the  screen  as  a  graph.  In  the  current  version 
of  DEX  at  MIT  the  plotting  option  is  not  yet  implemented. 

The  function  of  the  extended  DEX  library  writing 
routines,  described  in  this  chapter,  is  to  permit  the 
transmission  of  the  information  to  the  three  valid  desti¬ 
nations.  Eight  logical  functions  comprise  this  group  of 
routines,  and,  like  the  reading  routines,  they  can  be 
categorized  by  either  type  of  variable  handled  or  by 
function.  They  are  listed  here  by  the  first  method: 


Integer 

Real 

Real 

Scalar 

Scalar 

Array 

ISCDMP 

RSCDMP 

RARDMP 

ISDSCR 

RVDSCR 

ISRITE 

RSRITE 

RARITE 

Both  the  real  scalar  and  real  array  series  share  RVDSCR. 


The  top  routines,  called  the  "dumpers",  serve  a 
function  similar  to  that  of  the  loaders  of  the  reading 
routines.  They  screen  out  requests  to  perform  plotting, 
call  the  "descripters " ,  if  necessary,  to  prepare  descrip¬ 
tion  messages  for  identifying  the  values  when  writing  on 
the  terminal,  and  invoke  the  "writers”  to  do  the  actual 
writing  to  the  destination. 

One  general  observation  concerning  the  writing 
routines  which  is  best  made  here  is  that  the  concept  of 
"essential"  variables,  which  was  introduced  in  the  chapter 
on  the  reading  routines,  is  not  employed.  This  affects 
the  execution  of  a  calling  program  all  option.  The 
premise  is  that  when  writing  all  the  values  from  a  menu, 
the  failure  to  write  one  should  not  prevent  the  writing 
of  the  remainder.  The  user  can  go  back  and  analyze  why 
the  one  was  not  successful  without  having  to  rewrite  all 
of  the  variables  from  the  menu.  The  only  case  where  the 
all  option  is  aborted  is  where  the  destination  is  a  data¬ 
base  and  no  database  is  found  open.  Rather  than  getting 
a  string  of  similar  messages  announcing  this  fact,  the 
writing  sequence  is  halted. 


( 
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6 . 2  Integer  Scalar  Series 
6.2.1  ISCDMP 


6. 2. 1.1  Calling  sequence.  Logical  function 
ISCDMP  is  the  supervisory  subroutine  for  writing  integer 
scalar  values  and  is  the  subroutine  which  appears  in 
module  subprograms.  The  calling  sequence  contains  eleven 
parameters  and  is  listed  here: 

LOGICAL  FUNCTION  ISCDMP (ALLFLG ,MTERSE , IOMODE,NCPW, 

IVAR , DBNAME , DMORGN , 

DMPREP , DMES , RNFILE , FORMAT) 

In  accordance  with  DEX  practices,  the  output  variables 
come  first  in  the  calling  sequence.  ALLFLG  is  both  an 
input  and  output  variable  for  ISCDMP,  being  defined  at 
the  invocation  and  capable  of  having  a  different  value 
when  ISCDMP  is  returned  to  the  module  subprogram.  ALLFLG 
contains  the  information  about  the  calling  program  all 
option. 

The  remaining  parameters  are  exclusively  input 
variables  from  the  point  of  view  of  ISCDMP.  MTERSE  indi¬ 
cates  the  type  of  module  dialogue.  NCAW  is  the  number 
of  characters  per  word  assumed  by  the  DEX  routines. 

IOMODE  corresponds  to  OMODE  in  the  module  calling  program 
and  represents  the  destination  of  the  information  to  be 
written.  As  a  reminder,  its  values  are  repeated  here: 

IOMODE* 1 ;  a  DEX-created  database 
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I0M0DE*2:  the  terminal  using  DEX  routines 

IOMODE*3:  the  screen  using  plotting  routines 

I0M0DE*4:  a  sequential  file  using  a  formatted 
WRITE  statement 

IVAR  is  the  integer  value  which  is  to  be  written. 
DBNAME  is  the  3-character  database  name  of  the  variable. 
DMORGN  is  a  string  of  up  to  64  characters  which  describes 
the  variables.  It  is  usually  the  database  comment.  If 
it  has  less  than  64  characters  it  must  include  the  trim 
character  "<".  The  routines  in  this  series  assume  that 
integer  variables  have  no  units . 

DMPREP  is  a  logical  variable  which,  if  .TRUE., 
means  that  the  description  message  is  to  be  prepared  by 
ISDSCR .  In  this  case,  DMES  is  undefined.  DMES  is  where 
the  description  message  is  stored.  If  the  dialogue  is 
verbose  it  can  be  up  to  64  characters  by,  whereas  if  the 
dialogue  i3  terse  it  will  only  contain  DBNAME.  If 
DBPREP*. FALSE. ,  DMES  must  be  provided  by  the  module  and 
must  include  the  trim  character  if  it  is  less  than  64 
characters  long. 

RNFILE  is  the  file  reference  number  for  writing  to 
a  sequential  file.  It  corresponds  to  RNWFIL  in  the 
calling  program.  FORMAT  contains  the  format  to  be  used 
to  write  the  integer  available  to  the  file. 
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6. 2. 1.2  Characteristics.  ISCDMP  first 
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checks  the  destination  pointer.  If  IQM0DE»3,  the  user 
is  informed  that  plotting  is  an  improper  mode  of  output 
for  an  integer  scalar  value  and  ISCDMP  is  set  to  .FALSE, 
before  returning  control  to  the  calling  program. 

If  IOMODE*2  and  DMPREP™ . TRUE . ,  ISCDMP  calls  ISDSCR 
to  prepare  the  description  message  for  identifying  the 
integer  when  it  is  written  to  the  terminal.  When  this 
is  successfully  accomplished,  or  when  I0M0DE»1  or  4, 
ISCDMP  invokes  ISRITE  to  actually  perform  the  writing. 

If  either  ISDSCR  or  ISRITE  is  returned  .FALSE., 
ISCDMP  is  also  set  to  .FALSE,  and  control  is  returned  to 
the  calling  program.  Otherwise,  it  is  set  to  .TRUE, 
prior  to  returning  control. 

When  invoking  ISRITE,  a  new  logical  variable, 
DBCHNG,  is  introduced.  It  is  included  in  anticipation 
of  future  capabilities  of  DEX  and  indicates  when  a  change 
is  made  to  a  database  value.  This  will  alert  the  user 
to  check  other  variables  which  are  dependent  on  the  value 
of  the  integer  being  written.  Currently  DBCHNG  is 
initialized  as  .FALSE,  in  ISCDMP. 

6.2.2  ISDSCR 

6. 2. 2.1  Calling  sequence.  Logical  function 
ISDSCR  prepares  a  description  message  suitable  for 
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identifying  the  integer  available  when  it  is  to  be  written 
on  the  terminal.  Its  calling  sequence  lists  the  perti¬ 
nent  parameters  provided  by  ISCDMP: 

LOGICAL  FUNCTION  ISDSCR (DMES , MTERSE , NCPW, DENAME , DMORGN) 
The  value  of  logical  variable  MTERSE  dictates  whether  the 
description  message,  to  be  stored  in  DMES,  will  be  brief 
or  long.  NCPW  is  used  by  the  DEX  routines  which  manipu¬ 
late  character  strings  to  produce  the  message. 

6. 2. 2. 2  Characteristics .  If  the  dialogue 
is  verbose,  DMORGN ,  which  contains  a  string  of  up  to  64 
characters  describing  the  integer  variable  in  question, 
is  inserted  into  DMES.  For  terse  dialogue,  DBNAME  is 
copied  into  the  description  message.  If  the  insertion 
is  successful,  ISDSCR  is  set  to  .TRUE,  and  control  re¬ 
turns  to  ISCDMP.  If  not,  an  error  message  is  issued 
and  ISDSCR  is  returned  .FALSE.. 

6.2.3  ISRITE 

6.2.31.  Calling  sequence.  Logical  function 
ISRITE  actually  writes  the  integer  available  to  the 
specified  destination.  Its  calling  sequence  is  as 
follows: 

LOGICAL  FUNCTION  ISRITE (ALLFLG, DBCHNG, MTERSE, IOMODE, 

NCPW, 

IVAR , DBNAME , DMORGN , DMES , RNF ILE , 
FORMAT) 


98 


Logical  variables  ALLFLG  and  DBCHNG  are  defined  when 
ISRITE  is  invoked.  DBCHNG  is  always  .FALSE.,  and  will 
become  .TRUE,  if  a  change  is  made  to  the  integer  variable 
DBNAME  in  the  database.  DMES  is  always  defined  when 
ISRITE  is  invoked  so  DMPREP  is  no  longer  needed.  DMORGN 
is  required  because  it  may  be  used  for  comparison  with 
the  database  comment. 

6. 2. 3. 2  Characteristics .  If  the  destination 
of  the  integer  available  is  a  database,  ISRITE  first 
attempts  to  extract  an  existing  value  by  DEX  routine 
IGET  (reference  [5]).  If  no  database  is  open,  ALLFLG 
is  changed  to  .FALSE,  if  it  was  not  already,  with  an 
appropriate  message  being  issued  to  the  user.  If  the 
variable  is  defined  in  the  database,  and  it  is  different 
from  the  integer  available,  both  are  presented  for  the 
user's  inspection.  The  user  then  specifies  which  is  to 
be  placed  in  the  database.  The  new  value  is  inserted  by 
DEX  routine  IPUT  (Reference  (51)  and  DBCHNG  becomes 
.TRUE..  If  the  variable  was  not  defined,  the  new  value 
is  automatically  inserted.  Once  this  is  accomplished, 
the  database  comment  is  compared  to  DMORGN  and,  if  dif¬ 
ferent,  they  are  presented  for  the  user's  inspection. 
Again,  he  specifies  which  is  to  be  the  final  database 
comment. 
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When  writing  to  the  terminal,  an  output  message 
is  created  from  DMES,  the  string  "  »  "  and  the  integer 
value.  The  entire  message  is  then  printed  by  OEX 
routine  MESOUT. 

If  IOMOD£»3,  the  user  is  informed  that  plotting  is 
an  improper  mode  of  output  for  an  integer  scalar.  In 
this  case,  and  other  cases  where  the  writing  is  unsuc¬ 
cessful,  ISRITE  is  returned  .FALSE,  to  the  calling 
program.  Otherwise  it  is  set  to  .TRUE,  prior  to  re¬ 
turning  control. 


6 . 3  Real  Scalar  Series 
6.3.1  RSCDMP 

6. 3. 1.1  Calling  Sequence.  RSCDMP  is  the 

subprogram  that  normally  appears  in  the  module  for 

writing  a  real  scalar  value  to  the  designated  source. 

Its  calling  sequence  includes  14  parameters: 

LOGICAL  FUNCTION  RSCDMP (ALLF LG, MTERSE, IOMODE,NCPW, 

RVAR , DBNAME , UN ITEM , UNITFA , 
UNITNM, 

DMPREP , DMES , DMORGN , RNF IL , 
FORMAT) 

All  of  these  parameters  are  input  variables  with  respect 
to  RSCDMP  except  ALLFLG,  whose  value  may  be  changed 
during  the  writing  sequence.  RVAR  stores  the  value  of 
the  real  scalar  available  to  be  written.  UNITFM  and 


UNITFA  are  respectively  the  multiplicative  and  additive 
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conversion  factors  for  converting  the  real  value  in 
program  standard  units  to  input/output  units  prior  to 
the  writing.  UNITNM  is  a  12-character  version  (including 
blanks)  of  the  input/output  unit  name.  DMPREP  indicates 
if  the  description  message,  DMES ,  is  to  be  prepared  by 
RVDSCR. 

DBNAME  is  an  8 -character  name  of  the  real  scalar 
and  DMORGN  is  a  string  of  up  to  64  characters  which 
identifies  the  variable.  If  the  variable  is  dimensioned, 
DMORGN  contains  the  string  "(????????????)",  referred  to 
as  UNITPT,  into  which  UNITNM  will  be  inserted.  DMORGN 
must  include  the  trim  character  if  it  is  less  than  64 
characters  long.  RNFILE,  corresponding  to  RNWFIL  of  the 
module  calling  program,  is  the  file  writing  device  number. 
FORMAT  contains  the  format  for  writing  to  a  file  with  a 
formatting  Fortram  WRITE  statement. 

6. 3. 1.2  Characteristics .  RSCDMP  has  three 
tasks:  to  screen  out  requests  to  plot  a  real  scalar,  to 
call  RVDSCR  if  DMPREP* . TRUE .  and  I0M0DE-2,  and  to  call 
RSRITE  to  perform  the  actual  writing.  If  I0M0DE*3, 

RSCDMP  issues  a  message  informing  the  user  that  this  is 
not  possible.  In  this  case,  of  if  either  RSDSCR  or  RSRITE 
are  returned  .FALSE.,  RSCDMP  is  set  to  .FALSE,  and  con¬ 
trol  is  returned  to  the  calling  program.  If  the  called 


functions  are  returned  .TRUE.,  RSCDMP  is  also  set  to 


.TRUE,  before  returning  control  to  the  calling  program. 

In  invoking  logical  function  RSRITE,  the  logical 
variable  DBCHNG  is  introduced.  It  is  initialized  in 
RSCDMP  as  .FALSE..  If,  when  executing  RSRITE  the  vari¬ 
able  value  is  changed  in  the  database,  DBCHNG  is  returned 
to  RSCDMP  as  .TRUE..  In  future  versions  of  DEX,  RSCDMP 
will  pass  the  value  of  DBCHNG  back  to  the  calling  program 
to  alert  the  user  to  check  other  variables  which  are 
dependent  on  RVAR. 

6.3.2  RVPSCR 

6. 3. 2.1  Calling  sequence.  In  the  same  man¬ 
ner  as  RVAPMP ,  RVDSCR  is  shared  by  both  the  real  scalar 
and  real  array  series.  Its  function  is  to  prepare  a 
description  message  suitable  for  identifying  the  values 
being  written  on  the  terminal.  It  is  invoked  by  either 
RSCDMP  or  RARDMP  using  the  following  calling  sequence: 

LOGICAL  FUNCTION  RVDSCR ( DMES , MTERS E , NCPW , DBNAME , 

DMORGN , UNITNM) 

DMES  is  undefined  when  RVDSCR  is  invoked.  The  other 
parameters  are  all  input  variables  from  this  function's 
point  of  view.  They  have  all  been  described  in  either 
section  6. 2. 1.1  or  6. 3. 1.1. 
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6. 3. 2. 2  Characteristics .  If  the  module 
dialogue  is  verbose  (MTERSE«. FALSE. ) ,  the  description 
message  is  formed  by  copying  DMORGN  into  DMES .  If  the 
real  scalar  being  written  has  units,  RVDSCR  inserts  the 
12-character  unit  name  UNITNM  into  the  string  UNITPT, 
"(????????????)",  which  is  now  in  DMES  by  virtue  of 
having  been  in  DMORGN.  If  the  dialogue  is  terse,  then 
RVDSCR  copies  DBNAME  into  DMES.  It  then  scans  DMORGN 
for  UNITPT,  and  if  it  finds  it,  copies  UNITPT  into  DMES 
following  DBNAME  and  replaces  the  question  marks  with 
UNITNM.  If  DMES  is  successfully  prepared,  RVDSCR  is 
returned  .TRUE..  Otherwise  it  issues  an  error  message, 
is  set  to  .FALSE.,  and  returns  control  to  the  calling 
program  (either  RSCDMP  or  RARDMP) . 

6.3.3  RSRITE 

6. 3. 3.1  Calling  sequence.  Logical  function 
RSRITE  is  used  to  write  a  real  scalar  to  the  valid 
specified  destination.  Its  calling  sequence  is  as 
follows: 

LOGICAL  FUNCTION  RSRITE (ALLFLG, DBCHNG,MTERSE , IOMODE ,NCPW, 

RVAR , DBNAME , UNITFM , UNITFA , UNITNM , 
DMORGN , DMES , RNFILE , FORMAT ) 

This  is  similar  to  RSCDMP  with  three  exceptions.  DBCHNG 
is  a  logical  variable  which  is  always  .FALSE,  when  RSRITE 
is  invoked.  DMPREP  is  no  longer -needed  since  in  all 
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cases  DMES  is  now  defined.  DMORGN  is  still  requried 
because  it  will  be  compared  with  the  database  comment. 

6. 3. 3. 2  Characteristics .  RSRITE  first 
converts  the  real  scalar  value  from  program  standard 
units  to  user  input/output  units,  stored  in  variable 
TVAR,  by  the  statment: 

TVAR  *  (RVAR-UNITFA) /UNITFM 
If  I0M0DE*1,  the  database  is  first  checked  to  see 
if  a  value  in  question  already  exists.  If  the  database 
is  found  closed,  RSRITE  alerts  the  user  and  changes 
ALLFLG  to  .FALSE,  if  it  was  not  already  so.  If  the 
variable  does  not  exist  in  the  database,  it  is  inserted 
using  DBNAME,  TVAR  und  DMORGN  (corrected  for  units  if 
applicable)  as  its  name,  value  and  database  comment. 

If  the  variable  exists  but  is  not  a  real  scalar,  RSRITE 
informs  the  user  and  is  set  to  .FALSE.. 

If  the  variable  exists  and  is  defined,  its  value 
is  compared  to  TVAR  and  the  user  is  presented  with  both 
if  there  is  a  difference.  He  then  is  asked  which  value 
he  wants  in  the  database  and  the  chosen  one  is  written 
(or  left)  in.  RSRITE  then  compares  the  existing  data¬ 
base  comment  to  the  one  specified  by  '"'RGF  *nd  writes 
them  both  for  the  user's  inspection  if  they  are  dif¬ 
ferent.  The  user  then  specifies  which  one  is  to  be  the 
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database  comment.  This  step  is  crucial  in  insuring  that 
the  correct  units  for  TVAR  exist  in  the  database  comment. 

When  writing  to  the  terminal,  an  output  message  is 
constructed  using  DMES,  the  string  ”  *  "  and  the  real 
value.  This  message  is  then  printed  by  DEX  routine 
MESOUT. 

If  IOMODE=*3  despite  the  previous  checks,  the  user 
is  informed  that  a  plot  cannot  be  used  for  writing  a 
real  scalar  value,  and  RSRITE  is  returned  .FALSE.  . 

RSRITE  is  set  to  .FALSE,  in  all  cases  where  the  real 
value  is  no',  successfully  written  and  control  is  then 
returned  to  the  calling  program.  Otherwise  it  is 
returned  .TRUE,  to  RSCDMP. 

6 . 4  Real  Array  Series 

6.4.1  RARDMP 

6. 4. 1.1  Calling  sequence.  Logical  function 
RARDMP  is  used  in  the  module  subprogram  for  writing  a 
real  array.  It  has  the  same  three  functions  as  RSCDMP 
and  ISCDmP:  to  screen  out  requests  to  plot  graphs,  to 
call  RVDSCR  if  needed  to  prepare  a  description  message, 
and  to  call  RARITE  to  actually  do  the  writing.  It  has 
the  following  calling  sequence: 


( 
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LOGICAL  FUNCTION  RARDMP (ALLFLG , MTERSE , IOMODE , NCPW, 

R1ARR , DBNAME , NFROM , NTO , 
UNITFM, UNITFA , 

UNITNM , DMPREP , DMES , DMORGN , 
RNFILE, FORMAT) 

A  few  new  parameters  deserve  explanation.  R1ARR 
stores  the  array  elements,  in  program  standard  units  if 
they  have  dimensions.  The  array  corresponding  to  R1ARR 
in  the  module  should  be  dimensioned  as  large  as  the 
value  MXTOGT  used  in  RA1LDR  for  reading  the  araay. 

NFROM  represents  the  position  in  the  array  at  which 
writing  commences.  It  should  always  have  a  value  of  1, 
specified  in  the  module  calling  program,  except  possibly 
when  writing  to  the  terminal.  If  the  user  is  in  the 
"editing"  versus  the  "writing"  mode  of  operation,  he  may 
desire  to  write  only  part  of  an  array  on  the  terminal. 

In  this  case  the  editing  routine  specifies  NFROM  to  be 
a  value  from  1  to  NTO  inclusive  prior  to  invoking  RARDMP. 
NFROM  should  be  1  when  writing  the  array  on  the  terminal 
when  not  in  the  "editing"  mode. 

NOT  represents  the  number  of  elements  to  be  written 
in  all  cases  but  one.  This  exception  occurs  when  writing 
to  the  terminal  in  "editing"  mode,  when  NTO  indicates  the 
last  element  in  the  array  to  be  written.  Other  than 
this  case,  NTO  corresponds  to  the  value  NGOT  obtained 
when  reading  the  array  with  the  reading  routines  (i.e.. 
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the  actual  number  of  elements  read  into  the  array  repre¬ 
sented  by  R1ARR) ,  and  may  be  less  than  MXTOGT. 

The  other  parameters  in  the  calling  sequence  are 
the  same  as  those  in  RSCDMP . 

6. 4. 1.2  Characteristics .  If  I0M0DE»2  and 
DMPREP* . TRUE . ,  RARDMP  invokes  RVDSCR  to  prepare  a 
description  message  suitable  for  identifying  the  array 
being  written  to  the  terminal.  If  RVDSCR  is  successful, 
and  for  IOMODE*1  and  4 ,  RARDMP  invokes  RARITE  with  the 
statement 

LOGVAL- RARITE ( ALLFLG , DBCHNG , MTERSE , IOMODE , NCPW , 

R1ARR , DBNAME , NFROM , NTO , UNITFM , UNITFA , 
UNITNM, 

DMORGN , DMES , RNFILE, FORMAT ) 

In  this  version  of  DEX,  DBCHNG  is  initialized  .FALSE, 
in  RARDMP.  If  a  change  is  made  to  a  database  array  by 
RARITE  it  will  be  changed  to  .TRUE..  In  future  versions 
RARDMP  will  pass  the  value  of  DBCHNG  back  to  the  user 
via  its  calling  sequence,  to  alert  the  user  who  may  wish 
to  verify  other  variables  dependent  upon  this  array. 

If  I0M0DE»3,  RARDMP  informs  the  user  that  it  cannot 
be  used  to  write  a  real  array.  In  this  case,  or  if 
RVDSCR  or  RARITE  is  returned  .FALSE.,  RARDMP  is  set  to 
.FALSE,  prior  to  returning  control  to  the  calling  program. 
If  the  two  called  functions  are  successful,  RARAMP  is 
also  set  to  .TRUE.. 
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6.4.2  RARITE.  Since  the  calling  sequence  for 


RARITE  has  been  described  above,  this  section  will  only 
discuss  RARITE' s  characteristics.  The  task  of  this 
logical  function  is  to  write  the  real  array  elements 
available  to  the  proper  specified  destination.  The  first 
action  it  takes  is  to  convert  the  elements  in  program 
standard  units  to  input/output  units  and  store  them  in 
a  temporary  array.  This  is  done  with  a  DO  loop  from 
NFROM  to  NTO  and  the  statement 

RTARR(I)  -  { R1ARR ( I ) -UNITF A) /UNITFM 
The  elements  in  RTARR  are  in  the  units  described  by 
unitnm:  . 

If  the  destination  is  a  database  (IOMODE-1),  it  is 
desired  to  compare  the  existing  array  with  the  new  one. 
RARITE  first  attempts  to  extract  the  existing  array  and 
store  it  in  a  working  array  RXARR  using  DEX  routine  AGET 
by  the  calling  sequence 

LOGVAL- AGET { D8NAME , RXARR , NTO , NSTORD , RCODE ) 

There  are  six  possible  result  codes  returned  by  AGET. 

If  RCODE*j0,  AGET  was  completely  successful  in  that  the 
number  of  elements  stored  in  the  database  array  (NSTORD) 
is  equal  to  the  number  requested  (NTO) ,  which  is  also 
the  number  of  new  elements  to  be  stored.  If  RCODE-1, 
the  database  was  not  open.  This  will  cause  ALLFLG  to 
change  to  .FALSE,  if  it  was  not  already,  aborting  the 

calling  program  all  option. 
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If  DBNAME  does  not  exist  in  the  database  (RC0DE*2) , 
it  is  created  with  DEX  function  DBVINS,  and  RTARR  is 
stored  in  it.  RTARR  is  also  immediately  stored  if  the 
array  DBNAME  exists  but  has  no  datum  stored  in  it  (RCODE= 
4).  If  DBNAME  is  not  a  real  array  (RC0DE»3)  ,  the  user 
is  informed. 

The  final  two  result  codes  are  more  diabolical. 

If  the  number  of  elements  stored  in  the  database  array 
is  less  than  the  number  requested  by  AGET  (RC0DE*5) ,  the 
elements  that  do  exist,  plus  zeros  up  to  NTO  elements, 
are  stored  in  RXARR.  The  user  is  advised  that  this  has 
occured,  that  comparison  of  the  existing  values  in 
RXARR  and  the  new  values  in  RTARR  can  be  accomplished, 
but  that  the  new  values  cannot  be  stored  if  the  user 
decides,  they  are  the  ones  desired.  This  is  because  the 
storing  of  an  array  is  performed  by  DEX  routine  APUT  via 
the  statement 

LOGVAL-APUT (DBNAME , RTARR , NTO , NSTORD , RCODE ) 

Unless  NTO“NSTORD/  the  storing  will  not  occur.  All  is 
not  lost,  however  I  The  user  can  proceed  back  to  the 
module  calling  program,  exit  to  the  DEX  level  via  the 
command  and  delete  the  array  with  the  DEX  editing 
capability.  He  can  then  return  to  the  module  and  write 
the  array  into  the  database  when  AGET  returns  RC0DE>2. 


The  other  problem  occurs  when  the  number  requested 
is  less  than  the  number  stored  (RCODE-6) .  In  this  case 
NTO  elements  are  stored  in  RXARR  for  comparison,  but  for 
the  same  reason  as  above,  the  user  is  advised  that  storing 
the  new  values  will  not'  be  possible. 

Once  RXARR  is  established  (RCODE»0,  5  or  6) ,  a 
comparison  between  its  elements  and  those  of  RTAJRR  is 
conducted.  The  criteria  for  difference  is  l.OxlO-6. 

The  user  is  informed  of  how  many  differences  were  found 
and  asked  if  an  inspection  of  all  the  values  is  desired. 

A  partial  review  is  not  possible.  If  the  user  responds 
affirmatively,  the  values  are  listed.  UNITNM  is  printed 
in  the  heading.  RARITE  then  asks  the  user  to  specify 
which  group  of  values  (all  old  or  all  new)  is  desired. 

If  the  user  chooses  to  insert  the  new  values,  DBCHNG 
is  set  to  .TRUE,  and  APUT  is  called  to  store  the  values. 
Error  messages  will  be  issued  if  NTO  does  not  equal 
NSTORD . 

If  the  writing  is  successful,  or  if  the  old  values 
are  retained,  RARITE  proceeds  to  compare  the  database 
consnent  to  DMORGN,  corrected  for  units,  if  applicable. 

When  not  the  same,  it  prints  both  and  asks  the  user  to 
decide  which  is  correct,  storing  the  one  chosen  as  the 
database  comment.  If  there  was  no  comment  already  in 
the  database,  DMORGN  is  automatically  inserted. 
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When  the  destination  is  the  database,  the  writing 
is  considered  successful  only  when  all  the  new  values 
are  successfully  stored  or  the  old  values  retained.  All 
the  other  possibilities  result  in  RARITE  being  returned 
to  RARDMP  as  .FALSE.. 

If  I0M0DE=2,  the  description  message,  DMES,  is 
printed  on  the  terminal,  and  then  the  array  is  listed 
from  position  NFROM  to  NTO.  If  I0M0DE»3,  the  user  is 
informed  that  plotting  the  array  cannot  be  accomplished 
and  RARITE  is  set  to  .FALSE.. 

When  I0M0DEa*4 ,  the  array  is  written  to  a  sequential 
file  by  a  DO  loop  from  1  to  NTO  with  the  statement 

WRITE (RNFILE, FORMAT)  NTO, (RTARR(I) ,I»l,NTO) 

In  the  cases  where  the  writing  is  successful  RARITE 
is  set  to  .TRUE,  and  control  is  returned  to  the  calling 


program. 


CHAPTER  7 


THE  EXTENDED  DEX  LIBRARY  UNIT  ROUTINES 


7.1  General  Description 

The  module  author  will  invariably  write  the  compu¬ 
tational  subprograms  of  the  module  in  the  unit  system 
with  which  he  is  most  familiar.  Frequently,  it  is  not 
the  system  that  the  user  of  the  module  prefers.  The 
tenet  of  the  DEX  philosophy  to  make  modules  convenient 
to  use  dictated  that  this  problem  be  addressed.  The 
result  was  the  development  of  a  group  of  subprograms  in 
the  extended  DEX  library  which  allow  the  user  to  choose 
from  a  reasonable  selection,  the  units  for  input  and 
output  purposes  for  five  basic  types  of  measurement, 
plane  angle,  force,  length,  temperature,  and  time  - 
and  combinations  thereof. 

The  twenty-two  extended  DEX  library  unit  routines 
can  be  divided  into  three  categories : 

(i)  Five  subroutines  which  enable  the 
user  to  choose  from  the  options 
available  the  preferred  input/output 
(i/o)  units. 

(ii)  Five  logical  functions  which  enable 
the  module  to  obtain  conversion 
factors  which  convert  the  five  basic 
user- specified  (i/o)  units  into  the 
program  standard  units  (p.s.u.)  and 
to  obtain  the  unit  names  of  the  i/o 
units  for  use  in  prompting  and  des- 
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cription  massages  on  the  terminal  and 
database  comments. 

(iii)  Twelve  logical  functions  which  enable 
the  module  to  obtain  the  conversion 
factors  and  unit  names  or  special 
names  for  combinations  of  the  basic 
units. 

This  chapter  will  examine  each  category. 

7 . 2  The  I/O  Unit  Specifiers 

7.2.1  General  Description.  The  extended  DEX 

library  includes  five  subroutines  which  enable  the  user 

to  read,  edit,  or  write  the  five  basic  units  he  wishes 

to  use  for  input  and  output.  These  are  listed  here: 

AUNIT  (plane  angle) 

FUNIT  (force) 

LUNIT  (length) 

TPUNIT  (temperature) 

TUNIT  (time) 

The  user  must  choose  from  the  units  offered  by  the 
particular  subroutine  menu  options.  These  choices  were 
included  in  anticipation  of  the  possible  needs  of  most 
users.  Table  7-1  lists  the  choices  available. 

7.2.2  Characteristics  of  a  Typical  Subroutine. 

In  execution,  the  five  subroutines  simply  call  ISCLDR 
to  read  the  input/output  unit  indicator,  ISCEDT  to  edit 
the  i/o  unit  indicator,  or  ISCDMP  to  write  the  i/o  unit 
indicator.  Because  all  five  subroutines  are  structured 
identically,  only  one,  AUNIT,  will  be  described  in  detail. 
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Table  7-1.  I/O  Unit  Specifier  Subroutines 
Menu  Names  and  Units  Available 


Its  calling  sequence  is  listed  here: 


SUBROUTINE  AUNIT  <UIOAUN,CALALL,  IOFLAG*.  'r‘  -CDE, 

MTERSE ,  DBAUNN ,  DBAWUC  -  f V  REP , 
PMES  ,  RNFILE ,  AUNFRJS ,  i£'t  *  -'Ti  > 


The  calling  sequences  for  the  others  are  simiX*^ 

Table  7-2  lists  the  comparable  distinctive  parameters. 

UIOAUN  denotes  the  i/o  angle  unit  and  can  be 

either  an  output  variable  (when  reading  or  editing)  or 

an  input  variable  (when  writing) .  It  has  the  following 

integer  values  depending  on  the  specific  i/o  angle  unit: 

1:  cycle 
2 :  radian 
3:  degree  (angular) 

4 :  minute  ( angul ar ) 

5:  second  (angular) 

CALALL  is  a  logical  variable  which  indicates  the  status 
of  the  calling  program  "all"  option.  Recall  from  the 
Cube  Module  that  subroutine  MXUNIT  was  the  calling  pro¬ 
gram  for  this  series.  IOFLAG  indicates  whether  the 
operation  is  reading,  editing,  or  writing  (IOFLAG  *  1, 

2,  or  3  respectively)  and  dictates  whether  ISCLDR, 

ISCEDT  or  ISCDMP  will  be  invoked.  IOMODE  indicates 
the  source  when  reading  and  the  destination  when 
writing.  MTERSE,  NCPW,  PMPREP,  PMES,  and  RNFILE  ful¬ 
fill  the  same  roles  as  described  in  previous  chapters. 

DBAUNN  is  where  the  database  name  of  the  angle 
unit,  "UIOAUN",  is  stored.  DBAUNC  is  a  character 


Table  7-2.  I/O  Unit  Specifier  Subroutine  Calling  Parameters 


Subroutine 

Parameter 

AUNIT 

FUNIT 

LUNIT 

TPHNIT 

TUNIT 

I/O  Unit  Indicator 

UIOAUN 

UIOFUN 

UIOLUN 

UIOTPU 

UIOTUN 

Database  name 

DBAUNN 

DBFUNN 

DBLUNN 

DBTPUN 

DBTUNN 

Database  comment 

DBAUNC 

DBFUNC 

DBLUNC 

DBTPUC 

DBTUNC 

File  format 

AUNFRM 

FUNFRM 

LUNFRM 

TPUFRM 

TUNFRM 

Default  variable 

DEFAUN 

DEFFUN 

DEFLUN 

DEFTPU 

DEFTUN 

Table  7-3.  Basic  Unit  Series  Calling  Parameters 


Subroutine 

Parameter 

AUNIT 

FUNIT 

LUNIT 

TP UNIT 

TUNIT 

Conversion  factor 

CONVA 

CONVF 

CONVL 

CNVTPM 

CNVTPA 

CONVT 

One  letter  abbrev. 

NAMTP1 

Two  latter  abbrev. 

NAMF02 

NAML02 

NAMT02 

Three  letter  abbr. 

NAMA03 

NAMF03 

NAMT03 

Five  letter  abbrev. 

NAMTP5 

Six  letter  abbrev. 

NAMA06 

N  AML  06 

NAMT06 

Eight  letter  abbr. 

NAMA03 

Twelve  letter  abb. 

NAMA12 

NAMF12 

NAML12 

NMTP12 

NAMT12 

Program  standard 
unit  indicator 

PSTAUN 

PSTFUN 

PSTLUN 

PSTPUN 

PSTTUN 

I/O  unit  indicator 

UIOAUN 

UIOFUN 

UIOLUN 

UIOTPU 

UIOTUN 
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string  which  identifies  the  angle  unit  variable.  It 
is  used  as  the  database  comment  and  in  the  preparation 
of  the  prompting  and  description  messages.  AUNF$M  is 
the  format  to  be  used  if  the  angle  unit  indicator  is 
to  be  read  from  or  written  to  a  sequential  file. 

DEFAUN  is  the  default  value  of  the  angle  unit  indicator 
if  that  is  chosen  as  the  source . 

In  operation,  AUNIT  branches  depending  on  the 
value  of  IOFLAG  and  calls  ISCLDR,  ISCEDT,  and  ISCDMP. 
When  the  user  wishes  to  read  the  angle  unit,  AUNIT 
provides  menu  " ANG .UNIT"  with  its  five  choices  to 
ISCLDR.  This  is  an  example  of  when  a  menu  is  used  to 
input  an  integer  value.  The  reader  should  understand 
that  is  is  not  the  name  of  the  unit  which  is  read  or 
written  by  these  subroutines,  but  rather  an  integer 
value  which  denotes  the  i/o  unit  to  be  used. 

7. 3  The  Basic  Unit  Series 

7.3.1  Series  Description.  Since  the  module 
author  knows  and  provides  indicators  for  the  units  in 
which  he  has  written  his  program,  once  the  user 
specifies  the  units  he  wishes  to  use  during  input  and 
output,  it  is  possible  to  determine  the  conversion 
factors  for  relating  the  i/o  units  to  the  program 
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standard  units.  These  conversion  factors  can  then  be 
passed  on  to  the  loaders  when  reading  variables  (real 
scalars  or  arrays)  to  convert  their  values  in  i/o  units 
to  p.s.u.  for  the  module  computing  subprograms.  Sim¬ 
ilarly,  these  factors  can  be  passed  on  to  the  dumpers 
when  writing  variables  to  convert  their  values  in 
p.s.u.  to  i/o  units.  The  determination  of  the  conver¬ 
sion  factors  for  the  five  basic  types  of  units  is 
accomplished  by  five  logical  functions  listed  here: 

UNITAF  (angle  units) 

UNITFF  (force  units) 

UNITLF  (length  units) 

UNITMP  (temperature  units) 

UNITTF  (time  units) 

These  functions  accomplish  one  other  task:  they  pre¬ 
pare  various  alphabetic  character  versions  of  the  in¬ 
put/output  unit  names,  up  to  twelve  characters  long, 
which  are  used  in  database  comments  and  prompting  and 
description  messages.  This  is  explained  further  below. 

7.3.2  Calling  Parameters.  Once  again,  because 
all  five  subroutines  are  essentially  structured  the 
same,  only  one,  UHITFF ,  will  be  described  in  detail. 

The  calling  sequence  for  UNITFF,  as  it  would  appear  in 
a  module  subprogram  for  reading,  editing,  or  writing 
input/outpu'  variables,  is  as  follows: 

LOGVAL-UNITFF (CONVF , NAMF02 , NAMF03 , NAMF12 , 


ALLFLG , PSTFUN , UIOFUN , NCPW) 


The  sequence  is  similar  for  all  five  functions  with  two 
exceptions.  The  number  of  versions  of  the  unit  names 
for  some  is  different  and  UNITMP  includes  two  conver¬ 
sion  factors  instead  of  one.  Table  7-3  lists  the  com¬ 
parable  calling  parameters  for  the  five  functions. 

The  first  four  calling  parameters  are  defined  by 
UT:TFF  and  the  four  are  input  variables  to  the  function. 
CONVF  is  the  multiplicative  conversion  factor  which 
partially  converts  the  force  values  from  i/o  units  to 
p.s.u.  when  reading  or  editing  and  does  the  reverse 
when  writing.  The  conversion  also  requires  an  additive 
conversion  factor  which,  in  all  cases  except  with 
temperature  units,  is  equal  to  zero  and  is  provided  to 
the  loader,  editor,  or  dumper  by  the  module.  The  con¬ 
version  that  takes  place  in  the  reading  routines  is  of 
the  form: 

VARIABLE (p.s.u.) -VARIABLE ( i/o  unit) *UNITFM+UNITFA 

where  UNITFM  is  the  multiplicative  conversion  factor 
determined  by  one  of  these  functions  and  UNITFA  is  the 
additive  conversion  factor. 

NAMF02,  NAMF03,  and  NAMF12  are  respectively  two-, 
three-,  and  twelve-  character  abbreviations  of  the 
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force  unit  used  during  input  and  output.  NAMF12  is 
used  as  UNITNM  in  prompting  and  description  messages 
and  database  comments  for  force  variables  (recall  that 
UNITNM  must  be  a  twelve  character  version  of  the  rele¬ 
vant  unit) .  Tables  B-l  through  B-5  in  Appendix  B  list 
the  various  abbreviations  of  the  five  basic  units. 

PSTFUN  and  UIOFUN  denote  the  program  standard 
force  unit  and  the  input/output  force  unit  respectively. 
They  can  each  be  an  integer  between  1  and  7  inclusive, 
corresponding  to  the  seven  permissible  force  units 
listed  in  Table  7-1. 

7.3.3  Execution.  When  invoked,  UNITFF  calls 
routine  CHKRNG  to  verify  that  PSTFUN  and  UIOFUN  are 
within  the  permissible  range  1-7.  UNITFF  then  uses 
the  pair  (PSTFUN,  UIOFUN)  as  an  index  to  a  data  table 
included  within  the  function  to  locate  the  conversion 
factor  appropriate  for  converting  an  input  value  in 
the  i/o  force  unit  denoted  by  UIOFUN  to  the  program 
standard  force  unit  denoted  by  PSTFUN. 

UIOFUN  is  also  used  as  an  index  to  another  data 
table  in  the  function  which  contains  the  various 
abbreviations  of  the  seven  force  units.  UNITFF  employs 
DEX  routine  LMOVEC  to  copy  the  characters  from  the  data 
table  into  the  strings  NAMF02,  NAMF03,  and  NAMF12. 
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If  a  failure  occurs  in  defining  either  the  force 
unit  conversion  factor  or  the  unit  name,  the  user  is 
informed  that  the  appropriate  variable  has  not  been 
defined,  is  essential  for  i/o  continuation,  and  must  be 
corrected  before  continuing.  ALLFLG  is  changed  to 
•FALSE,  if  it  was  .TRUE,  and  UNITFF  is  set  to  .FALSE.. 
If  successful  in  accomplishing  both  tasks  it  is  set  to 
.TRUE. . 


7.4  Derived  I/O  Unit  Series 

7.4.1  Series  Description.  The  third  series  in 
the  units  category  contains  twelve  logical  functions 
for  defining  conversion  factors  and  unit  names  for 
units  of  measurement  formed  by  combining  basic  units. 
These  are  listed  in  Table  7-4. 

In  order  to  operate  these  functions,  the  module 
author  must  first  have  either  specified  or  allowed  the 
user  to  specify  the  basic  i/o  units  which  are  building 
blocks  for  these  derived  unit  functions.  The  module 
program  must  then  have  used  the  appropriate  basic  unit 
series  function  or  functions  to  obtain  the  various 
multiplicative  conversion  factors  and  abbreviations. 
These  are  then  used  as  calling  parameters  for  the 
derived  units  in  this  series. 
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Table  7-4.  Derived  I/O  Unit  Series 


Function 

Type  o£  Measurement 

Units  of  Measurement 

bAACC 

angular  acceleration 

2 

plane  angle/ (time) 

UACCEL 

linear  acceleration 

length/ ( time ) 2 

UAREA 

area 

(length) 2 

UFREQ 

frequency 

plane  angle/time 

UKVISC 

kinematic  viscosity 

( length) 2/time 

UMASS 

mass 

force- (time) 2/length 

UMPOWR 

mechanical  power 

force- length/time 

UPRESS 

pressure 

force/ ( length) 2 

UP SPEC 

power  spectrum 

( length) 2 -time 

URHO 

mass  density 

force- ( time) 2/ ( length) 

USPEED 

speed 

length/ time 

UVOL 

volume 

(length) 3 
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There  is  considerably  more  diversity  in  the  call¬ 
ing  sequences  of  the  twelve  functions.  Appendix  B, 

Table  B-6,  lists  them  for  reference.  In  these  functions 
only  multiplicative  conversion  factors  are  used  to 
determine  the  combined  conversion  factors  because  none 
involve  temperature  units.  It  should,  therefore,  be 
easy  to  identify  CONVA,  CONVF,  CONVL,  and  CONVT  as  the 
angular,  force,  length,  and  time  multiplicative  con¬ 
version  factors.  The  abbreviations  of  the  basic  units 
used  in  the  calling  sequences  were  shown  in  Tables  B-l 
through  B-5 . 

One  of  the  functions,  UPRESS,  will  be  described 
in  more  detail  as  an  example  of  how  they  operate. 

7.4.2  UPRESS  Calling  Parameters.  UPRESS  allows 
its  users  to  define  the  unit  conversion  factor  and  name 
for  a  variable  that  has  the  units  of  pressure  (force/ 
area).  The  calling  sequence  for  UPRESS  is  as  follows: 

LOGICAL  FUNCTION  UPRESS (UFPRESS , UNPRESS ,ALLFLG, 

CONVF , CONVL , NAMF0 3 , 

NAMF02 , NCPW) 

The  pressure  conversion  factor  UFPRESS  converts  the 
input/output  pressure  unit  to  the  program  standard 
pressure  unit  by  multiplication  when  reading  or  editing 
and  converts  the  p.s.  pressure  unit  to  i/o  pressure 
unit  when  writing  by  division.  The  unit  name  UNPRES 
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is  used  to  identify  the  units  of  the  variable  in 
question  for  messages  and  the  database  comment.  UNPRES 
is  a  twelve-character  string  (including  blanks) . 

ALLFLG  indicates  the  calling  program  "all"  option. 
NAMF03  is  a  three-character  force  unit  abbreviation  and 
NAML02  is  a  two-character  length  unit  abbreviation. 

7.4.3  UPRESS  Operation.  (JPRESS  first  defines  the 
pressure  unit  conversion  factor  by  the  statement 
UFPRES  *  CONVF/CONVL  *  *  2 

In  order  to  form  the  pressure  unit  name,  UPRESS 
defines  a  twelve-character  dummy  name  variable  UXPRES 
printed  here: 

«  /  _  *  *  2 

UPRESS  inserts,  via  DEX  routine  LMOVEC,  NAMF03  into 
the  first  three  blank  spaces  and  MAML02  into  the  fifth 
and  sixth  spaces.  The  three  "words"  (four  characters 
per  word)  of  UXPRES  are  then  set  equal  to  the  three 
words  of  UNPRES.  As  an  example,  if  the  force  unit  was 
poundforce  and  the  length  unit  was  inches,  the  final 
version  of  UNPRES  would  be 
"LBF/IN**2 

If  a  failure  occurs  in  preparing  the  unit  name,  a 
message  advises  the  user  and  informs  him  that  the  problem 
must  be  corrected,  because  it  is  essential  for  input/ 
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output  continuation.  If  ALLFLG  was  .TRUE,  it  is  set 
equal  to  .FALSE,  and  the  user  is  informed  that  the  "all" 
option  is  aborted.  UPRESS  is  then  set  equal  to  .FALSE. 

If  it  is  successful,  UPRESS  is  set  equal  to  .TRUE.. 

Certain  combinations  of  basic  units  have  special 
universally  recognized  names  used  to  identity  the 
measurement  unit.  Where  possible,  the  logical  functions 
provide  these  names  rather  than  creating  a  name  by  its 
contituents,  such  as  UNPRES  was  formed  in  the  above 
example.  Table  7-5  lists  these  special  names. 

Although  there  are  only  twelve  types  of  measure¬ 
ments  listed  the  derived  unit  series  have  more  versatil¬ 
ity  than  first  meets  the  eye.  They  can  be  used  for 
units  that  have  different  names  but  the  same  basic  units. 
For  example,  UPRESS  can  be  used  for  stress  units  as 
well  as  pressure.  In  addition,  they  can  be  used  for 
units  that  have  different  basic  units  but  the  same  for¬ 
mat.  An  example  is  provided  by  UAACC  and  UACCEL,  which 
could  be  used  for  any  unit  type  requiring  one  basic 
unit  in  the  numerator  and  a  basic  unit  squared  in  the 
denominator.  The  module  author  must  be  careful  to 
supply  the  correct  special  parameters  in  the  function 
calling  sequence  in  the  module  calling  subprogram. 
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Table  7-5.  Special  Unit  Names 


TJ 

TJ 

TJ 

3 

TJ 

C 

C 

C 

C 

C 

(0 

(0 

fl 

<« 

|Q 

fH 

£N 

p* 

r- 

<N 

r~ 

f*1 

it 

II 

II 

II 

il 

II 

II 

II 

z 

z 

z 

z 

z 

z 

z 

Z 

3 

3 

3 

3 

3 

3 

3 

3 

£h 

6; 

J 

-J 

J 

J 

5 

O 

O  'H 

O  -H 

O  <H 

O  ^ 

O  -« 

5 

M 

M 

M  II 

H4  11 

M  II 

M  It 

n  II 

M 

3 

3 

3  Z 

3  Z 

3  Z 

3  Z 

3  Z 

3 

V 

3 

3 

3 

3 

3 

0 

XI 

TJ 

TJ  fr. 

TJ  EJ 

TJ  H 

tj  e- 

TJ  £ 

TJ 

c 

c 

C 

c  O 

C  O 

C  O 

c  5 

C  0 

C 

3) 

>0 

<0 

Ifl  M 

<8  M 

fl  M 

fl  M 

(0  M 

u 

3 

3 

3 

3 

3 

3 

VO 

fN 

VO 

VO 

IN 

VO 

0 

II 

II 

II 

II 

II 

II 

II 

II 

0 

z 

z 

z 

z 

Z 

z 

z 

z 

o 

3 

3 

3 

3 

3 

3 

3 

3 

< 

3 

Cb 

fa 

Cb 

Cl, 

Cb 

J 

o 

O 

O 

o 

O 

O 

0 

O 

M 

M 

M 

w 

M 

M 

M 

w 

3 

3 

3 

3 

3 

3 

3 

3 

TJ 


c 

U 

0 

44 

s> 

o 

o 

0 

■u 

3) 

3> 

o 

UJ 

w 

w 

in 

1*4 

a 

\ 

<u 

a 

TJ 

\ 

\ 

\ 

u 

44 

0 

C  <N 

fN 

fN 

3) 

$ 

3 

0 

u 

TJ 

u 

44 

m 

a 

\ 

u 

<u 

C 

3) 

3) 

44 

s 

• 

O’ 

<u 

•u 

0 

ta 

a 

0 

e 

c 

<n 

v 

0 

i 

i 

0 

ia 

s 

-.4 

N 

s 

3) 

c 

s 

<44 

u 

c 

a) 

•H 

<n 

0 

0 

\ 

2* 

• 

fl 

4J 

i 

44 

44 

O’ 

0 

44 

<u 

o 

c 

VM 

3 

3 

a 

3 

z 

a> 

3 

V 

® 

4", 

•44 

X 

0 

0 

rH 

c 

C 

a 

4< 

c 

\ 


CHAPTER  3 


DEVELOPMENT  OF  A  CRUISER-DESTROYER  DATABANK  AT  M.I.T. 


8.1  Considerations  in  Database  Design 


8.1.1  Function.  When  designing  a  database,  the 
developer  must  not  only  consider  for  what  immediate 
function  it  is  intended,  but  must  also  try  and  anticipate 
other  future  demands  and  organize  it  accordingly.  One 
solution  to  this  problem,  in  a  sense  an  avoidance  of  it, 
is  to  create  very  specialized  databases  containing  in¬ 
formation  about  only  one  aspect  of  the  overall  project 
involved.  The  project  has  a  databank  comprised  of  many 
databases.  Physical  limitations  on  the  database  size, 
such  as  the  limit  of  200  variables  in  a  DEX-created 


database,  suggest  this  practice.  These  smaller  data¬ 
bases  may  be  more  efficient  from  the  point  of  view  of 
computer  costs  when  it  comes  to  manipulating  them.  How¬ 
ever,  the  situation  can  arise  where  a  computer  program 
requires  as  input  data  from  several  different  databases, 
entailing  the  time  consuming  effort  of  opening  and 
closing  them  all.  Only  experience  in  using  the  data¬ 
bases  can  reveal  the  deficiencies  in  their  design. 

The  function  of  the  cruiser-destroyer  databases 
developed  and/or  envisioned  in  the  Department  of  Ocean 
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Engineering  at  MIT  is  to  support  the  naval  architect 
during  the  concept  and  preliminary  design  phases  of  a 
ship  design.  During  these  phases  a  variety  of  products 
are  developed,  including  the  overall  vessel  dimensions 
and  hull  definition,  hydrostatic  and  Bon jean  curves, 
weight  and  volume  estimates,  longitudinal  weight  distri¬ 
bution,  propulsion  and  electrical  powering  requirements, 
transverse  stability  and  floodable  length  checks  and 
general  arrangements.  The  tasks  to  produce  several  of 
these,  notably  the  determination  of  ship  dimensions, 
weight  and  volume  estimates,  powering  requirements  and 
transverse  stability,  can  be  accomplished  with  the  aid 
of  a  computer  synthesis  model.  The  REED  Model  [6]  used 
at  MIT  is  an  excellent  example  of  this  design  tool,  and 
it  was  the  anticipated  support  of  that  model  that 
strongly  influenced  the  databases  designed  in  this  in¬ 
vestigation.  The  naval  architect  who  chooses  to  use  a 
synthesis  model  must  carefully  determine  his  input  if 
he  desires  to  use  the  model  efficiently.  Being  able  to 
draw  upon  a  supply  of  existing  ship  information  is  in¬ 
valuable  to  this  effort,  and  this  was  one  of  the  reasons 
for  developing  the  cruiser-destroyer  databases. 

An  effective  database  is  one  that  can  be  shared  by 
many  different  engineers  involved  in  the  ship  design 
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project,  each  of  whom  has  a  different  task  to  perform. 
Data  should  be  stored  in  a  form  that  allows  each  one  to 
extract  the  information  required  and  use  it  directly 
without  having  to  pass  it  through  some  form  of  inter¬ 
pretation  process.  An  example  is  a  table  of  offsets 
database.  Ideally,  it  contains  sufficient  offsets  pro¬ 
perly  organized  such  that  each  one  of  the  programs  for 
hydrostatics,  Bonjean  curves,  cross  curves  of  stability, 
floodable  length,  structures  and  seakeeping  can  directly 
access  it  and  obtain  the  input  required  without  having 
to  go  through  a  "black  box"  interface  program. 

The  development  of  a  comprehensive  computer-aided 
ship  design  system  that  ensures  such  program/da tabase 
design  requires  a  "top  down"  approach  to  the  problem, 
as  described  in  reference  [7] .  One  starts  with  the 
overall  objective  and  works  down  through  functional 
specifications  to  complete  system  design.  If  success¬ 
fully  accomplished,  as  a  result  of  strict  discipline 
during  the  process,  no  unnecessary  capabilities  need  be 
developed  along  the  way.  One  proceeds  from  each  level 
to  the  next  lower  by  answering  the  question  of  how  to 
provide  for  the  needs  of  the  higher  one.  This  contrasts 
directly  with  the  traditional  method  of  many  individuals 
writing  programs  for  their  specific  task,  and  only  after- 
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wards  determining  if  these  programs  can  be  integrated 
for  some  higher  objective. 


8.1.2  Types  of  Databases.  Accepting  the  concept 
of  a  bank  of  databases  to  describe  a  ship,  either  exist* 
ing  or  being  designed,  we  can  list  the  types  which  will 
be  useful: 

1.  General  description 

2.  Weights  and  centers  of  gravity 

3.  Longitudinal  weight  distribution 

4.  Volumes,  areas,  and  centroids 

5.  Offsets 

6.  Equipment  specifications  and  locations 

7.  Power-speed  data 

8 .  Seakeeping  data 

9 .  Internal  arrangements 

10.  Topside  arrangements 

This  list  is  similar  to  that  of  the  computer-aided 
ship  design  system  implemented  in  the  Ship  Department 
of  the  British  Ministry  of  Defense  [8]. 

Storing  in  a  computer  databank  several  of  these 
databases  for  many  classes  of  ship  is  extremely  helpful 
as  a  research  resource  during  the  concept  design  of  a 
new  vessel.  Taking  this  one  step  further,  as  described 
in  reference  [3],  is  to  establish  "base"  ship  databanks 
made  up  of  all  of  the  database  types.  If  a  new  vessel 
is  similar  to  one  of  these,  a  copy  of  the  databank  pro¬ 
vides  an  excellent  starting  point  to  begin  defining  the 
new  design  and  can  save  much  redundant  work.  This  is 
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predicated  on  the  assumption  that  all  the  databases  of 
a  particular  type  for  all  ships  are  identical  in  struc¬ 
ture  and  differ  only  in  content.  Such  a  practice  is 
essential  to  the  efficient  use  of  the  databanks. 


( 


8 . 2  Organization  of  the  MIT  Cruiser-Destroyer  Databases 
8.2.1  General  Databases.  During  this  investigation 
work  was  conducted  to  establish  the  first  two  types  of 
databases  listed  in  Section  8.1.2  for  eleven  classes  of 
U.S.  cruisers,  destroyers,  and  frigates.  These  classes 
are  as  follows: 

FF-1040  DD-931  CG-16 

FF-1052  DD-963  CG-26 

FFG-1  DDG-2  CG-47 

FFG-7  DDG-40 

This  section  will  describe  the  organization  of  the  gen¬ 
eral  databases  and  the  next  section  will  describe  the 
weights  and  centers  of  gravity  databases. 

The  general  databases  are  so  named  because  they 
provide  a  general  and  not-too-detailed  description  of 
the  ship  class  which  would  be  useful  to  a  researcher 
seeking  to  determine  first  estimates  for  a  new  design. 

The  information  was  gleaned  from  various  sources  in  the 
open  literature,  and  the  respective  weight  and  moment 
reports  and  booklets  of  general  plans  [9,10,11,12]. 
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The  database  contains  eight  categories  of  variables. 

These  are : 

1.  Hull  characteristics 

2.  Propulsion  and  powering 

3.  Transverse  and  directional  stability 

4.  Weapons  payload 

5.  Electronics,  fire  control,  and  sensors 

6.  Aviation  capability 

7.  Complement 

8.  Gross  mass  properties 

Appendix  C  is  an  example  of  a  general  database.  The 
individual  entries  are  what  would  appear  if  one  issued 
the  "dump"  command  from  the  DEX  level  with  a  particular 
database  open.  The  order  of  the  listing  would  not  be  as 
they  appear  here  because  of  a  "hashing"  function  built 
into  the  DEX  which  distributes  entries  to  a  database  in 
the  memory  randomly  in  order  to  store  them  more  effi- 
cently . 

There  are  actually  78  variables,  listed  in  Table  8-1 
which  constitute  the  eight  categories .  Each  one  has  a 
number  assigned  on  the  left  hand  margin.  These  serve 
as  a  convenient  indicator  for  the  creation  of  Fortran 
names  for  the  various  variables  associated  with  each 
element  used  in  a  DEX  program.  For  example,  in  the 
module  MACHWT  described  later  in  this  chapter,  the  pro¬ 
gram  names  for  the  default  value  and  comment  statement 
for  propulsion  plant  type  (Item  #20)  are  DEF20  and 
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GENERAL  SHIR  CHARACTERISTICS  DATABASE 
FOR  U.S.  NAVY  CRUISER-DESTROYERS 
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CMNT20  respectively. 

In  each  category  some  space  has  been  left  for 
additional  variables.  Further,  experience  with  the 
databases  may  indicate  that  some  items  are  not  needed 
and  can  be  deleted. 

An  inspection  of  both  Table  8-1  and  Appendix  C 
reveals  that  certain  items  referring  to  the  types  of 
plant  or  type  of  equipment  have  integer  values  where  one 
would  expect  a  name.  The  reason  for  this  is  because 
only  three  types  of  variables  are  allowed  in  the  DEX: 
integer  scalar,  real  scalar,  and  real  array.  Alpha¬ 
numeric  words  in  the  "value”  part  of  a  database  entry 
are  not  allowed.  A  code  of  integer  values  was  needed  to 
solve  this  dilemma,  and  it  was  decided  to  adopt  the  pay- 
load  shopping  list  of  the  REED  model  because  of  its 
comprehensiveness  and  its  widespread  use  at  MIT.  Appen¬ 
dix  D  contains  the  payload  list  from  reference  [6] ,  with 
some  additional  items  included  for  this  application. 

The  restriction  on  arrays  that  they  contain  only 
real  values  poses  a  minor  problem  because  they  sometimes 
contain  information  from  the  code  which  should  be  stored 
as  an  integer.  It  should  be  obvious  to  the  user  from 
the  array  name  that  an  integer  value  is  implied.  Arrays 
are  used  in  some  not  very  obvious  cases  in  order  to 
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accommodate  the  most  information.  An  explanation  of  the 
array  variables  should  prove  helpful. 

TYPMATL  has  two  entries  to  distinguish  between  the 
type  of  material  for  the  hull  and  the  type  of  material 
for  the  superstructure.  The  integer  values  are  1  for 
steel  and  2  for  aluminum. 

The  type  of  sonar  carried  (TYPSONAR)  is  an  array 
because  some  ships  have  two  systems  installed:  a  bow 
or  keel-mounted  sonar,  plus  a  towed  array  or  variable 
depth  sonar. 

NGUNS  and  TYPGUNS  are  three  element  arrays  to 
accommodate  the  most  number  of  distinguishable  gun 
mounts  in  any  of  the  classes,  which  exists  on  the 
DD-931  class.  Not  only  does  this  destroyer  carry  two 
calibers,  5"  and  3",  but  the  REED  payload  code  allows 
the  distinction  between  a  5"  gun  mounted  on  the  main- 
deck  (93)  and  a  5"  gun  mounted  on  the  01  level  (94) . 

The  emergency  or  secondary  electrical  plant  in¬ 
cludes  three  array  variables:  EMETYP,  NEMG,  and  KWPEMG . 
The  CG-26  class  cruiser  has  both  a  gas  turbine-driven 
and  diesel-driven  emergency  generator.  Therefore,  the 
first  entries  of  the  three  arrays  describes  the  one  and 
the  second  entries  describe  the  other. 

Unfortunately,  a  great  amount  of  the  data  available 


from  the  various  sources  for  the  general  database  was 
conflicting.  Where  such  descrepancies  occurred,  this 
investigator  made  choices  based  upon  the  most  original 
source,  or  the  value  upon  which  the  most  sources  agreed. 
Whenever  possible,  the  original  ship  equipment  is  listed 
in  order  to  correspond  to  the  weights  and  centers  of 
gravity  databases,  whose  information  comes  from  the 
original  class  weight  and  moment  reports. 

Any  value  that  was  either  classified  or  unavailable 
was  left  undefined. 

8.2.2  Mass  Properties  Databases.  The  general 
databases  include  a  gross  mass  properties  category  which 
includes  two  arrays,  WEIGHT17  and  VCG17.  These  contain 
respectively  the  overall  weights  and  centers  of  gravity 
of  weight  groups  1  through  7.  The  weight  groups  conform 
to  the  U.S.  Navy  BSCI  organization  of  ship  weights.  Al¬ 
though  the  BSCI  system  has  been  replaced  by  the  SWBS 
(Ship  Work  Breakdown  System)  in  recent  years,  it  was 
used  for  the  databases  because  only  the  FFG-7  class  is 
sufficiently  recent  to  have  its  weight  and  moment  report 
organized  with  the  new  system.  Further,  the  REED  model 
is  based  on  BSCI. 

The  gross'  mass  properties  are  included  in  the  gen¬ 
eral  databases  because  they  are  more  frequently  used  for 
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estimations  than  the  individual  weight  items,  and  their 
inclusion  may  save  the  user  from  inspecting  two  different 
databases . 

There  are  about  150  items  comprising  the  eight 
weight  groups  of  the  3SCI  system.  Therefore,  the  com¬ 
bination  of  weight  and  center  of  gravity  for  each  item 
exceeds  the  limit  of  200  entries  in  a  DEX  database. 
Although  the  use  of  arrays  offers  an  apparent  solution 
to  this  problem,  the  idea  was  discarded  after  careful 
consideration  for  several  reasons.  First,  if  one  wished 
to  store  the  weight  in  long  tons,  the  vertical  center  of 
gravity  in  feet  above  baseline  and  the  longitudinal 
center  of  gravity  in  feet  aft  of  the  forward  perpen¬ 
dicular  or  from  amidships  in  a  three  element  array,  not 
only  would  it  be  difficult  to  identify  the  information 
in  the  64  characters  of  the  database  comment,  but  only 
one  of  the  two  unit  names  could  be  stored  there.  An¬ 
other  possibility  was  to  store  all  of  the  weights  (or 
centers  of  gravity)  for  one  weight  group  in  an  array. 
There  would  then  be  eight  weight  arrays,  eight  vcg 
arrays  and  eight  leg  arrays,  with  the  proper  units  in 
the  database  comment.  The  limit  of  200  elements  per 
array  would  not  be  a  problem  because  the  largest  index 
in  any  weight  group  is  51.  This  was  considered 


140 


unsatisfactory  because  it  was  not  felt  that  the  one 
database  comment  for  the  array  was  sufficient  to  iden¬ 
tify  the  individual  weight  items  and  an  extra  index 
would  have  to  be  provided  to  the  user.  Further,  an 
additional  process  would  have  to  be  developed  for  ex¬ 
tracting  the  particular  weight  item  out  of  the  array, 
and  avoiding  the  need  to  know  where  a  value  was  stored 
in  the  database  was  one  of  the  driving  principles  for 
developing  DEX  databases  to  begin  with. 

Instead,  it  was  decided  to  create  a  weight  data¬ 
base  and  a  vertical  center  of  gravity  database,  with 
each  item  listed  separately.  Appendix  E  illustrates  the 
listing  of  each  type.  No  need  was  felt  by  this  invest¬ 
igator  for  a  longitudinal  center  of  gravity  database 
for  existing  ships.  The  estimating  of  the  transverse 
stability  of  a  new  ship  design  can  be  done  effectively 
using  data  from  existing  ships  because  the  vertical 
locations  of  most  items  is  restricted  to  a  reasonable 
degree  by  physical  factors  or  proven  arrangements.  The 
REED  model  demonstrates  that  dependable  parametric 
equations  can  be  developed  for  estimating  vertical 
centers  of  gravity.  However,  there  is  far  more  flexi¬ 
bility  in  both  theory  and  practice  for  the  longitudinal 
locations  of  many  of  the  same  items.  Therefore,  it  is 
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more  difficult  to  correlate  into  acceptably  accurate 
parametric  equations  the  information  available  on  leg's 
in  existing  ships.  This  does  not  preclude  the  need  for 
a  database  containing  the  longitudinal  weight  distribu¬ 
tion  of  a  ship  design  in  order  to  support  longitudinal 
strength  and  seakeeping  analyses.  Nor  does  it  preclude 
the  use  of  a  longitudinal  center  of  gravity  database  for 
a  new  ship  in  order  to  support  longitudinal  stability 
(i.e.  trim)  analyses. 

8 . 3  Independent  and  Dependent  Variables 

8.3.1  Concept.  Databases  can  be  both  the  source 
and  destination  of  information.  A  particular  program 
may  read  its  input  from  a  database,  calculate  values  for 
other  variables  in  the  database,  and  write  the  new  val¬ 
ues  into  those  entries.  This  would  be  disastrous  if 
uncontrolled.  When  administering  a  ship  design  project 
that  involves  multiple  uses  of  the  same  databases,  the 
ship  design  manager  must  have  a  system  whereby  he  can 
control  changes  to  the  databases  that  occur  as  the 
design  progresses  around  the  design  spiral.  Further, 
the  system  should  allow  all  design  team  members  to  be 
alerted  to  changes  which  may  affect  them.  It  is  planned 
in  future  versions  of  DEX  to  implement  a  system  that 
supports  the  concept  of  independent  and  dependent 
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variables . 


Certain  variables  will  be  defined  by  the  user  as 
independent  variables  which,  either  by  fact  or  intention, 
can  not  be  changed  despite  changes  in  other  variables. 

The  remaining  variables  in  the  program  or  database  are 
dependent  on  the  former  or  each  other  for  their  values. 
Each  entry  in  a  database  will  be  provided  with  an  index 
of  those  variables  whose  value  would  be  affected  by  a 
change  in  its  value.  When  causing  a  change  to  such  an 
entry  (i.e.  DBCHNG  becomes  .TRUE.),  the  user  can  query 
this  index  to  determine  which  other  items  should  be 
checked . 

This  task  is  extremely  difficult  in  ship  design 
because  of  the  interaction  of  almost  all  of  the  variables. 
Ship  design  is  not  a  linear  process  but  a  spiraling  one. 
Figure  8-1  illustrates  an  attempt  to  group  the  variables 
of  the  general  database  into  five  levels  of  dependence. 

The  first  column  represents  those  variables  which  can 
be  considered  independent.  These  might  appear  as 
specifications  in  a  Top  Level  Requirement  or  they  might 
be  the  result  of  trade-off  studies  during  the  design 
phase. 

The  second  group  consists  of  those  variables  which 
(  are  most  directly  affected  by  the  independents  or  which 
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Figure  8-1.  General  Database  Variable  Relationships 
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are  estimated  first  in  the  design  process.  The  third 
column  is  dependent  upon  values  in  the  first  and/or 
second  columns  and  the  fourth  column  on  values  in  the 


third  and  possibly  first  and/or  second  column.  This 
table  allows  the  database  designer  to  determine  what 
indices  to  put  on  each  variable  to  alert  him  to  check 
dependent  ones. 

For  example,  the  dependent  variables  entry  for 
ENDUR  may  include  the  following:  WTLOAD,  LBP,  BEAMDWL, 
T,  CP.  A  check  on  LBP  will  than  add  to  the  list  of 
affected  variables  DISPMLD ,  DISPTOT,  LOA,  CWP,  Cl,  LCB, 
LCF,  etc.  Although  this  system  requires  more  work  by 
the  database  designer,  it  will' make  the  job  of  the 
design  manager  easier. 

8 . 4  Application  of  DEX:  An  Example 

8.4.1  Function  of  MACHWT .  The  Machinery  Weight 
Estimating  (MACHWT)  Module  was  written  to  demonstrate 
how  DEX  and  the  cruiser-destroyer  databases  could  be 
used  in  the  preliminary  design  of  a  new  ship.  MACHWT 
has  a  fairly  limited  computation  capability  since  it  is 
only  a  demonstration  module.  It  enables  the  user  to 
estimate  weight  items  200,  201  and  203  based  on  certain 
existing  parametric  equations  and  parametric  equations 


developed  by  the  user  during  the  module  execution. 

These  three  weight  groups  are  respectively  the 
weight  of  boilers,  weight  of  propulsion  units  and  weight 
of  the  propeller,  shafting,  and  bearings.  An  analysis 
of  9  ships  for  which  weight  data  is  available  reveals 
that  the  sum  of  these  three  items  constitute  between 
58.0  and  65.5%  of  the  total  Group  2  weight. 

The  first  two  weight  items  are  estimated  by 
assuming  that  they  are  linearly  related  to  installed 
horsepower.  The  program  fits  a  straight  line  to  data 
extracted  from  the  databases  chosen  by  the  user  and  pre¬ 
dicts  the  new  ship  weights  based  on  the  new  specified 
installed  SHP.  The  program  calculates  the  three  com¬ 
ponent  weights  of  item  203  from  the  input  supplied  by 
the  user  from  any  of  the  valid  sources,  using  parametric 
equations  from  the  REED  model.  A  summary  of  the  input 
required  for  each  weight  is  provided  in  Table  8-2  (the 
actual  database  names  are  used) . 

8.4.2  List  of  Subprograms  and  Menus.  The  Machinery 
Weight  Estimating  Module  includes  ten  subprograms.  They 
are  listed  below  in  the  order  in  which  they  are  most 
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likely  encountered  during  the  execution  of  the  module: 


MAINPG 

MOD  10 

INPUT 

MWUNIT 

MWLIST 

MWCHRT 

MWCOMP 

OUTFUT 

MWCOEF 

BLOCK  DATA 

LINFIT 

There  is  actually  no  one  correct  sequence  of  listing  the 
subprograms  in  the  module,  other  than  the  requirement  that 
MAINPG  be  first. 


TABLE  8-2 
INPUT  FOR  MACHWT 

W200:  W200  and  SHP  from  at  least  two  steam  ships  and 
SHP  of  new  ship 

W201 :  W201  and  SHP  from  at  least  two  ships  and  SHP 
of  new  ship 

W203:  LBP ,  PPTYP ,  NSHAFT ,  PRPTYP ,  VSUS  and  DPROP 
(optional)  of  new  ship 
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Seven  of  the  subprograms  employ  menus  in  their 
operation.  These  are  illustrated  in  Figure  8-2.  A 
listing  of  the  module  ubprograms  appears  as  Appendix  F. 
They  are  described  in  '  next  section. 

8.4.3  Description  of  the  Subprograms.  A  descrip¬ 
tion  of  a  typical  execution  of  the  module  will  serve  as 
a  backdrop  for  the  subprogram  descriptions.  The  user 
leaves  the  DEX  level  and  activates  the  module  by  using 
the  "DEX-MAIN"  menu  item  and  module  labeled 

.begin  machwt 

Subprograms  MAINPG  and  menu  "MOD .MAIN"  are  en¬ 
countered  first.  MAINPG  is  identical  to  the  subprogram 
of  the  same  name  used  in  the  Cube  Module  described  in 
Chapter  2,  as  is  subprogram  MODIO,  which  would  be  the 
next  one  encountered.  The  menu  selections  from  these 
two  subprograms  are 

.read  input 

These  place  the  user  in  subroutine  INPUT.  This 
subroutine  provides  the  user  with  a  menu  permitting  him 
to  read,  edit,  or  write  the  following: 

1.  All  the  module  input  variables. 

2.  The  module  input  and/or  output  variables 

3 .  The  machinery  weight  item  to  be  estimated 

4.  The  data  from  existing  ships  to  be  used 

for  curve  fitting  for  weight  items 
W (200)  and  W(201) . 
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Figure  8-2.  Machinery  Weight  Estimating  Menus 


5.  The  characteristics  of  the  new  ship 

design  needed  as  input  for  the  weight 
calculations . 

The  machinery  weight  item  must  be  read  first  to 
establish  the  proper  value  of  a  variable  WFLAG  needed  by 
the  subsequent  subprograms.  This  will  permit  the  cor¬ 
rect  prompting  messages  to  be  issued  to  the  user  for 
proper  input  sequencing. 

The  user  can  access  MWUNIT  to  specify  the  length, 
force  and  time  units  to  be  used  for  input  and  output, 
but  he  will  normally  just  use  the  ones  initialized  in 
the  module  in  BLOCK  DATA.  These  values  are  respectively 
foot,  long  ton  and  second,  and  were  chosen  to  conform 
with  the  units  of  the  database  variables  used.  MWUNIT 
is  a  shortened  version  of  MXUNIT  from  the  Cube  Module. 
Returning  from  or  bypassing  MWUNIT,  the  user  types 

. wt . item  w200 

to  access  MWLIST  and  set  WFLAG  to  indicate  weight  group 
200  to  be  estimated.  MWLIST  returns  him  to  INPUT  and 
he  selects  "curvepts".  The  following  prompting  message 
is  issued. 

♦SPECIFY  THE  SEQUENTIAL  NUMBER  OF  THIS  PAIR  OF  DATA  POINTS 
♦ENTER  UP  TO  1  INTEGER  NUMBERS 

He  types  Hl"  and  is  presented  with  menu  "CHARACT."  from 


subroutine  MWCHRT . 


Subroutine  MWCHT  allows  the  user  to  read,  edit,  or 
write  the  characteristics  of  the  ship  in  question  listed 
in  the  menu  in  Figure  8-2.  For  data  points,  the  in¬ 
dependent  variable  must  be  read  first  and  the  dependent 
variable  next.  In  this  case  the  user  specifies  SHP  and 
then  W200  and  they  are  read  from  the  open  ship  database 
and  then  inserted  into  the  first  positions  of  an  in¬ 
dependent  variable  array  and  a  dependent  variable  re¬ 
spectively.  The  user  then  issues 

.done  done  done 

to  get  back  to  MAINPG .  Using  the  "inmode"  menu  selec¬ 
tion  the  user  closes  the  open  general  database  for  one 
steam  warship  and  opens  the  other  one.  He  then  types 
.read  input  curvepts  2  shp  yes  w200 
to  input  the  second  pair  of  data  points  into  the  two 
arrays.  The  "yes"  responds  to  a  question  posed  by 
MWCHRT  to  ascertain  if  the  user  is  employing  horsepower 
or  kilowatts  to  measure  SHP. 

This  process  is  repeated  for  as  many  ship  class 
databases  from  which  the  user  wishes  to  read  data  for 
curve  fitting,  up  to  a  limit  of  10.  For  the  purpose  of 
demonstration,  the  three  weight  items  were  stored  in 
the  general  databases  so  that  only  one  database  for 
each  ship  would  have  to  be  opened.  Normally  they  re- 
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side  in  the  weight  databases. 

When  the  user  is  satisfied  with  the  data  points 

read,  he  specifies  "newship”  from  menu  "INPUT"  which 

causes  the  following  message  to  be  issued: 

*T0  ESTIMATE  W(200)  OR  W(201)  INPUT  NEW  SHIP  SHP. 

* SELECT  WHICH  CHARACTERISTIC  TO  READ. 

The  user  then  selects  SHP  from  menu  "CHARACT."  to  com¬ 
plete  the  input  required.  He  returns  to  MAINPG  and 
executes  the  computing  program  MWCOMP  by  the  following 
command : 

.done  done  done  compute 

Once  it  completes  its  calculation,  MWCOMP  returns  control 
to  MAINPG,  which  issues  its  menu  prompting  message. 

In  order  to  first  inspect  the  coefficients  of  the 
straight  line  fitted  to  the  data,  the  user  (after  en¬ 
suring  that  the  destination  is  the  terminal)  types 
.write  output  coeffici 

These  commands  invoke  MODIO,  OUTPUT  and  MWCOEF  succes- 
ively.  The  last  one  causes  the  two  element  coefficient 
array  to  be  printed.  The  two  values  which  appear  are 
the  slope  and  y-intercept  of  the  straight  line. 

The  user  then  selects  "newship"  from  menu  "OUTPUT" 
and  then  "w200"  from  "CHARACT."  and  the  new  estimated 
boiler  weight  is  printed  on  the  terminal.  The  user 
can  them  return  to  MAINPG,  choose  the  new  ship  database 
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as  the  destination,  and  write  the  estimated  W(200)  into 
it.  Now,  in  order  to  estimate  W(201) ,  the  user  must 
first  exit  the  module  via  the  "quit"  selection  from 
"MOD. MAIN"  in  order  to  clear  the  independent  and  depen¬ 
dent  variable  arrays.  This  is  unnecessary  if  he  is  go¬ 
ing  to  use  at  least  the  same  number  of  data  points  as 
for  W(200).  It  is  also  unnecessary  for  W(203)  which 
does  not  require  curve  fitting. 

For  W ( 20 3 ) ,  subroutine  INPUT  prompts  the  user  with 

the  following  message  when  "newship"  is  chosen: 

*TO  ESTIMATE  W(203)  THE  FOLLOWING  INFORMATION  IS  REQUIRED: 
*LBP  PPTYPE  SHP  NSHAFT  PRPTYP  VSUS  DPROP (optional) 

If  DPRCP  is  not  specified  MWCOMP  estimates  it. 

Simple  as  it  is,  MACHWT  is  more  sophisticated  than 
the  Cube  Module.  It  is  hoped  that  the  listing  in 
Appendix  F  can  serve  as  a  guide  to  readers  preparing  a 
module  for  use  on  the  DEX. 

8.4.4  Results  from  the  MACHWT  Module.  The  module 
was  exercised  to  estimate  W(200)  and  W(201)  for  a  nominal 
new  ship  design  having  a  40,000  SHP  1200  psi  steam  plant 
installed.  In  order  to  estimate  the  weight  of  boilers, 
data  from  the  DDG-2 ,  DDG-40,  and  FF-1052  classes  was 
used.  For  estimating  the  weight  of  the  propulsion  units, 
data  from  the  DDG-2,  DDG-40,  CG-16,  CG-26,  FF-1052,  and 
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FFG-l  class  databases  was  used. 

The  REED  Model  algorithms  for  the  respective 

weights  are  as  follows: 

W200“ . 002  34  *SHP+4  8.09 
W201* . 0014  3*SHP+17 . 92 

The  MACHWT  Module  fits  the  following  equations  to 
the  data  used: 


W200».002585*SHP+31. 94 
W201-. 0017665 *SHP+6. 66 


The  respective  estimated  weights  for  the  new  ship 


appear  in  Table  8-3. 

I 

► 


TABLE  8-3 

WEIGHT  ESTIMATES  FOR  40,000  SHP  SHIP  DESIGN 


Reed  Model  MACHWT 

W200  (tons)  141.7  135.3 

W201  (tons)  75.1  77.3 


8.4.5  Future  Developments.  MACHWT  represents  a 
starting  point  for  what  is  hoped  will  be  a  major  ship 
synthesis  program  incorporating  DEX  databases  and  the 
REED  Model.  The  model  as  written  contains  hundreds  of 
parametric  equations  for  estimating  weights,  volumes, 
areas  and  centers  of  gravity  which  were  derived  from 
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the  data  available  to  its  author  at  that  time.  As  new 
ships  are  designed  by  the  Navy,  say  every  4-5  years,  a 
problem  arises  with  respect  to  incorporating  them  into 
the  model.  It  would  be  a  major  undertaking  to  perform 
the  regression  analysis  for  all  new  equations.  Such  a 
task  would  have  questionable  merits  3ince  it  would  pro¬ 
bably  be  found  that  many  equations  change  only  slightly, 
and  others  that  change  drastically  have  insignificant 
effects  on  the  overall  design.  Further,  the  user  would 
still  be  confined  to  using  equations  of  a  form  chosen 
by  some  other  designer  and  derived  form  those  ship 
classes  chosen  by  him,  to  which  the  current  user  may 
object. 

MACHWT  demonstrates  a  program  that  allows  the  user 
to  specify  the  ship  data  upon  which  he  wishes  to  perform 
a  regression  analysis.  There  is  no  reason  why  the  co¬ 
efficients  obtained  could  not  be  written  into  a  database 
which  would  be  accessed  by  the  REED  model  in  order  to 
estimate  that  weight  item.  Expanding  on  this  idea,  a 
program  could  be  developed  which  allows  the  user  to 
derive  his  own  coefficients  for  parametric  equations  for 
the  large,  but  not  all  inclusive,  set  of  variables 
(weights,  volumes,  etc.)  which  impact  significantly  on 
the  ship  design.  When  a  new  naval  ship  class  design  is 
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finalized,  databases  could  be  produced  and  stored  in  the 
design  library  at  MIT.  Only  after,  perhaps,  3-4  designs 
and  10-15  years  would  a  major  revision  of  the  REED  model 
become  worthwhile.  The  cycle  could  then  begin  anew. 

Not  only  would  this  approach  avoid  frequent  rewriting 
of  the  REED  model,  but  more  importantly,  it  would  allow 
the  individual  designer  much  more  control  over  the  tool 
at  his  disposal.  This  would  greatly  support  the  function 
of  the  department  to  train  naval  architects. 


156 


CHAPTER  9 


CONCLUSIONS  AND  RECOMMENDATIONS 

With  the  completion  of  the  work  of  this  investiga¬ 
tion  the  first  truly  capable  version  of  DEX  at  MIT  has 
been  implemented.  Current  plans  call  for  the  adaption 
to  DEX  of  many  of  the  computer  programs  in  the  depart¬ 
ment  and  the  indoctrination  of  students  to  the  system. 
These  programs  cover  a  wide  range  of  the  calculations 
which  occur  during  the  preliminary  design  phase. 

Two  areas  of  the  extended  DEX  library  require 
development.  First  is  the  creation  of  routines  for 
editing  real  arrays.  Several  editing  capabilities, 
similar  to  those  of  the  operating  system,  are  being 
considered  for  implementation,  possibly  operated  by  the 
user  by  means  of  an  editing  menu. 

The  second  area  is  the  task  of  introducing  graphics 
to  the  DEX  at  MIT.  An  idea  to  develop  routines  capable 
of  reading  or  writing  a  pair  of  one-dimensional  arrays 
is  under  consideration  as  the  means  for  handling  plots. 
One  problem  that  also  must  be  solved  is  how  to  allow  the 
plotting  of  two  curves  on  the  same  graph  on  the  screen 
without  any  intermediate  dialogue  between  program  and 
user.  Although  some  terminals  permit  both  plotting  and 
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dialogue  to  occur  simultaneously  on  the  screen,  many  do 
not,  and  for  OEX  to  be  portable  it  must  be  suitable  for 
both  types  of  terminals. 

For  the  purpose  of  performing  ship  designs  at  MIT, 
this  writer  perceives  the  most  immediate  and  imperative 
need  to  be  the  development  and  implementation  of  pro¬ 
grams  which  will  allow  the  creation  of  a  table  of  offsets 
database.  Once  the  hull  form  can  be  defined,  the  existing 
programs  for  hydrostatics,  cross-curves  of  stability, 
floodable  length  and  Bon jeans,  adapted  to  DEX,  can  be 
operated  using  a  common  offsets  database.  Actually,  with 
a  hull  definition  database,  the  door  is  open  for  a  sig¬ 
nificant  expansion  of  the  use  of  the  computer  in  the 
preliminary  design  phase  including  seakeeping,  general 
arrangements,  longitudinal  strength,  etc.  Therefore, 
this  task  i3  strongly  recommended  as  a  fruitful  area 
for  further  research. 

The  adoption  of  the  OEX  System  entails  a  change  in 
philosophy  on  the  part  of  the  individual  author  and  user. 
Heretofore,  the  programmer  required  the  user  to  learn 
how  to  provide  the  input,  to  restrict  himself  to  the 
design  path  chosen  by  the  author,  and  to  use  the  units 
preferred  by  the  author.  With  OEX,  the  user  should  ex¬ 
pect  some  standardization  in  the  means  of  input. 
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flexibility  in  the  path  to  pursue,  and  choice  in  the 
unit  system  with  which  to  work.  It  means  more  work  for 
the  module  author,  but  his  job  is  only  performed  once, 
while  the  advantages  he  can  offer  by  using  DEX  will  be 
available  to  countless  users. 
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APPENDIX  B 

UNIT  SUBROUTINE  ABBREVIATIONS  AND  CALLING  SEQUENCES 
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Table  B-l.  Angle  Unit  Abbreviations 


NAMAO  3 

NAMA06 

NAMA08 

NAMA12 

CYC 

CYCLE 

CYCLE 

CYCLE 

RAD 

RADIAN 

RADIAN 

RADIAN 

DEG 

DEGREE 

DEG(ANG) 

DEGREE (ANG) 

MIN 

MINUTE 

MIN(ANG) 

MINUTE (ANG) 

SEC 

SECOND 

SEC (ANG) 

SECOND (ANG) 

Tafale  B-2.  Force  Unit  Abbreviations 
NAMF02  NAMFO  3  NAMF12 


PL 

PDL 

POUNDAL 

LB 

LBF 

POUND (FORCE) 

ST 

ST 

SHORT  TON 

LT 

LT 

LONG  TON 

DY 

DYN 

DYNE 

N 

N 

NEWTON 

KP 

KGF 

KILOPOND 

Table  B-3.  Length  Unit  Abbreviations 
NAML02  NAMLQ6  NAML12 


IN 

INCH 

FT 

FOOT 

SM 

STATMI 

NM 

NAUT  MI 

MM 

MILLIM 

CM 

CENTIM 

MT 

METER 

KM 

KILOMT 

INCH 

FOOT 

STATUTE  MILE 

NAUT.  MILE 

MILLIMETER 

CENTIMETER 

METER 

KILOMETER 
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Table  B-4.  Temperature  Unit  Abbreviations 


NAMTP1 

NAMTP5 

NMTP12 

C 

DEG-C 

DEGREES-C 

F 

DEG-F 

DEGREES-F 

K 

DEG-K 

DEGREES-K 

R 

DEG-R 

DEGREES-R 

Table  B-5.  Time  Unit  Abbreviations 


NAMT02 

NAMT03 

NAMT06 

NAMT12 

SC 

SEC 

SECOND 

SECOND 

MN 

MIN 

MINUTE 

MINUTE 

HR 

HR 

HOUR 

HOUR 

DY 

DAY 

DAY 

DAY 

WK 

WK 

WEEK 

WEEK 

MO 

MO 

MONTH 

MONTH 

YR 

YR 

YEAR 

YEAR 
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Table  B-6.  Calling  Sequences  of  Derived  Units 


LOGICAL  FUNCTION  UAACC {UFAACC , UNAACC , ALLFLG , 

CONVA , CONVT , NAMAO  3 , NAMTO  3 , NCPW ) 

LOGICAL  FUNCTION  UACCEL ( UFACC , UNACC , ALLFLG , 

CONVL, CONVT, NAML06,NAMT02,NCPW) 

LOGICAL  FUNCTION  UAREA ( UFAREA , UNAREA , ALLFLG , 

CONVL, NAML06, NCPW) 

LOGICAL  FUNCTION  UFREQ ( UFFREQ , UNFREQ , ALLFLG , 

CONVA, CONVT, NAMAO 3, NAMTO 3, 

UIOAUN , UIOTUN , NCPW) 

LOGICAL  FUNCTION  UKVISC  ( UFKVIS , UNICVIS  ,  ALLFLG , 

CONVL , CONVT , NAMLO  2 , NAMTO 3 , 

UIOLUN , UIOTUN , NCPW) 

LOGICAL  FUNCTION  UMASS (UFMASS , UNMASS , ALLFLG , 

CONVF , CONVL , CONVT , NAMF02 , NAMLO  2 , 
NAMTO  2 , UIOFUN , UIOLUN , UIOTUN , NCPW) 

LOGICAL  FUNCTION  UMPOWR ( UFPOWE , UNPOWE , ALLFLG , 

CONVF , CONVL , CONVT , NAMF 0 2 , NAML 0 2 , 
NAMTO  2 , UIOFUN , UIOLUN , UIOTUN , NCPW) 

LOGICAL  FUNCTION  UP RES S ( UFPRES , UNPRES , ALLFLG , 

CONVF , CONVL , NAMF03 , NAMLO 2 , NCPW) 

LOGICAL  FUNCTION  UPSPEC (UFPSPE , UNPSPE , ALLFLG , 

CONVL , CONVT , NAMLO  2 , NAMTO  3 , NCPW) 

LOGICAL  FUNCTION  URHO ( UFRHO , UNRHO , ALLFLG , 

CONVF , C ONVL , C ONVT , NAMF 0 3 , NAML 0 2 , 
NAMTO  2 , UIOFUN , UIOLUN , UIOTUN , NCPW) 

LOGICAL  FUNCTION  USPEED (UFSPEE , UNSPEE , ALLFLG , 

CONVL , CONVT , NAMLO 6 , NAMTO  2 , 

UIOLUN , UIOTUN , NCPW) 

LOGICAL  FUNCTION  UVOL (UFVOL,UNVOL, ALLFLG, 

CONVL , NAMLO  6 , NCPW) 
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APPENDIX  C 

SAMPLE  GENERAL  DATABASE 


Note:  This  is  an  edited  version  of  the  listing  of 
the  database  obtained  at  the  terminal.  The  actual  listing 
of  the  items  is  in  a  random  order  due  to  the  hashing  func¬ 
tion  employed  during  the  storing  of  the  entries.  Group 
headings  also  would  not  appear  at  the  terminal. 
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TABLE  D1  (Continued) 
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208  LAMPS  MK  III  Package 

209  LAMPS  Control 

210  LAAV  1 
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247  40'  Utility 

248  40'  Personnel  n:  new  item  -  6  December  1979 

249  50'  Motor  Launch  r:  updated  item  -  6  December  1979 


TABLE  D-2 


SUPPLEMENTAL  PAYLOAD  SHOPPING  LIST 


ITEM  DEFINITION 

Fire  Control  Radars  and  Directors 

300  SPG- 51C 

301  SPG-55 

302  SPG-60 

303  MK-51  Gun  Fire  Control  Director 

304  MK-63  Gun  Fire  Control  Director 

Missile  Launchers  and  Fire  Control  Systems 

305  Tartar  MK-11  GMLS 

306  Tartar  MK-22  GMLS 

307  MK-11  MFCS 

308  MK-76  MFCS 
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TABLE  D-3 


INDEX  TO  NON-PAYLOAD  REED  CODE 
ITEM  CODE  MEANING 


Propulsion  Plant  Type  1 
(PPTYP)  2 

3 

4 

5 

6 
7 
3 


Ship  Service  Electric  1 
Plant  Type  2 

(SSEPTYP)  3 

4 

5 

6 

Emergency  Electric  1 

Plant  Type  2 

(EMETYP)  3 

4 

5 

Type  of  Material  1 

(TYPMATL)  2 


600  psi  steam 
1200  psi  steam 

1200  psi  pressure- fired  steam 
nuclear 

gas  turbine  first  generation 
gas  turbine  second  generation 
diesel 
COGAS 

steam 

gas  turbine  first  generation 
gas  turbine  second  generation 
low  3peed  diesel 
medium  speed  diesel 
high  speed  diesel 

gas  turbine  first  generation 
gas  turbine  second  generation 
low  speed  diesel 
medium  speed  diesel 
high  speed  diesel 

steel 

aluminum 


SOURCE:  Michael  Reed,  "Ship  Synthesis  Model  for  Naval  Surface 
Ships"  (O.E.  and  S.M.  Thesis,  Massachusetts  Institute  of  Technology, 
1975). 
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APPENDIX  E 

SAMPLE  WEIGHT  AND  VERTICAL  CENTER  OF 
GRAVITY  DATABASES 


Note:  These  are  edited  versions  of  the  listings 
of  the  databases  obtained  at  the  terminal.  The  actual 
listings  of  the  items  in  each  database  is  in  a  random 
order  due  to  the  hashing  function  employed  during  the 
storing  of  the  entries. 
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Note:  Subroutines  MAINPG  and  MODIO  are  included  in  the 

Cube  Module  listing  in  Appendix  A  and  do  not  appear  here. 
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